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KEYBOARDS 

SPECTRUM REPLACEMENT 

THE 68FX2 




ONLY 



£39-95 



INCL. 



WE ARE NOW ABLE TO OFFER THIS 

TRULY SUPERIOR KEYBOARD AT 

THIS EXTRA SPECIAL PRICE £39-95 

THIS KEYBOARD IS FANTASTIC 

ITS FEATURES INCLUDE: 

•FULL SIZE SPACE BAR 

•INDIVIDUAL GOLD PLATED KEY- 
SWITCHES 

•SINGLE ENTRY KEYS INCLUDE 
FULLSTOP, SHIFT LOCK, EX- 
TENDED MODE, COMMA, FULL- 
STOP, EDIT DELETE BREAK, 
MINUS, ', RUN DIVIDE AND 
CURSOR CONTROLS 

' % THICK PLASTIC CASING 

•SIMPLE STEP BY STEP 
INSTRUCTIONS 

ALL FOR THIS UNBELIEVABLE 

PRICE OF 39-95 

WE STILL HAVE SOME 68FX1 LEFT 
THESE ARE AS ABOVE BUT WITH- 
OUT EXTENDED MODE, DIVIDE 
COMMA + MINUS ON SINGLE ENTRY 
KEYS ONLY 

£20-95 

+ 2-00 P&P 



LIMITED STOCKS 



JOYSTICK 
INTERFACES 

FOR THE SPECTRUM 

THE ULTIMATE 

THE FOX PROGRAMME 

JOYSTICK INTERFACE:- 




ONLYI! 

£28.95 



;.".S.=T £34-95 

OR BUY OUR STANDARD 
JOYSTICK INTERFACE 

(KEMPSTON TYPE) C7 Q( - 

ONLY X. # -y O INCL 
WITH QUICKSHOT II *».• |- 
JOYSTICK tl 5- INCL 

OR QUICKSHOT I > 4 n 7 r 
JOYSTICK IClO-fOlNCL 

SPECTRUM ^ 
UPGRADE 3£ 

16KT0 48K in one 

(ISSUE 2 or 3 please state) SIMPLE KIT 

PLEASE SEND ME:- 

68FX2 KEYBOARD D Name 

6BFX1 KEYBOARD D Address 

PROGRAMMABLE INTERFACE □ 
O/S II + PROG. INTERFACE □ 

STANDARD INTERFACED I enclose £ 

STANDARD + Q/S II □ or Deb-it my Barclaycard/ 

SPECTRUM UPGRADE □ Access 



SEND NOW TO 

FOX ELECTRONICS LTD 

FOX HOUSE 

35 MARTHAM RD 

HEMSBY 

GREAT YARMOUTH 

NORFOLK NR2 94NQ 



"YOUR PROGRAMS ALWAYS REACH 
ME BEFORE ONES ORDERED LOCALLY' 



EXPLODING FIST .;;::; ;:;:!: ';.,»—; FRANKIE/HOLLYWOOD 



red arrows;:: 



SOUTHERN BELLES?.,' 



Frank Bruno's BOXING i 



NATOM.EJRTi.»r„j£a 
NOW GAMES ~|»«ff f ; 
The ARTIST £;.~s::":;:i- 



;,_: home pack ' "™,^ h rs;,s,:= 

BORED OF THE JU NGS3 £35 

~" MICRODRIVERr-'i'-r^JippS: 

SI MICRODRIVECARTRJDGES^ = 
5 The FOURTH PROTOCOL 

5 FREE TAPES M'CARTSrsr',™ 



SPEEDYSOFT 



EUROCARD 
MASTERCARD 



■ 37 CHURCH ROAD.LONDON SWI 3 9HQ, E 
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Mint -head. SI 6 IY.X [■iiil-..:i-. : iairi: Gu To Hell. It's a ma?e-chase 




ble player moves. £8.95 from most respectable take aways. 






• For any Dentists among our readers, rush a cheque to Dentron 


■l'--'i> 1 ' '■ '.h.it i vi-s.T:r.t.:i;kStif:' < ' urn i o de i ■ :■ Worth buy ing a t 

£6.99. 
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Chemistry. Commit*; Sunlit. Foe. Lit -- Henry IV ptl and the 




imiob'elui ANY .'i.. !■. Li' ion, ::,,:■ .■nZXSi &OL?i Seems too good 


Merchant of Venice Gooiioiphy .'Aohs and Physics. 




to be true, but ii ii is men if II Im wonh every penny of the £24. 95 
asking price. 


Cost is C1 1 .50 for each topic package. 
• Buy one of the APS tape magazines, 16/48 Computing or 










Software on a consultancy basis for overseas promotions. 
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• Astrocalc, 67 Peascroft Rd. Hemel Hempstead, Herts. HP3 
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editor of ZXC, wrote the first 
one which is EXPLORING EX- 
PERT SYSTEMS ON YOUR 
MICROCOMPUTER. This is an 



nen hy asking if 



Hutchinson OL 



MACHINE CODE PRO- 
GRAMMING ON THE SINCLAIR 
QLis written by Martin Gandoff 
scaped from who, after a general introduc- 
Computer tory chapter jumps straight into 

ecific aspect chapter five we begin on68008 
ler machine, machine code and assembly 
£7.95. language. The style is an 



BASIC iinii has been produced 

perienced user in mind. The 

oi diMfiiersr. Iniigrhsand the sub- 
ject title:.. Graphics. G'ach Plot- 
ting, Sorfing, S-.at.st.cs. 
Science. Eng tmng and Solv- 

serious nur.re =1 i» .-nsi 

usin:; graphics on 

was wrlnon by Gary Mnrsnaii 
again, a -.1 i.-i.. v. ■••• I -. . :■ s 



,6 foreward by Nigel 'r.-n 



e use of Easel and 



Searle of Sinclair Res ea re I 



nZBO or S502 etc. SuperB 



fie and general 



£7.95. 

ADVANCED Z80 MACHINE 
CODE PROGRAMMING by 



el they explain the 
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n Closed User Groups 



On-line 

with 
Prestel 

and 
Micronet 

by Alan Giles 




Gallery help pages 



A bit of 
crackling 



lie and we will send you or- ■ 
I you in our Discount Softv..,,.. 
enabling you to purchase software at huge savings over shop prices. We offer all the 
; at substantial discounts such as, Frank Bruno's Boxing at £3.95 (saving 
£3.00), Frankie Goes To Hollywood at £6.95 (saving another £3.00) or Spy Versus 
Spy II at £6.95 (saving yet .another £3.00). We also have a number of older titles at 
Alchemist, Zoom or Cosmic Cruiser all at just 95p 
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using it, the while legends did 








expected this was mainly due 








































The case is well designed and 


at ona time the most importan 


unit to a Spectrum 1 try to put 
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spring bit st the top had to b 
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The instructions are a 


move over it. Silly me! 




There are several keyboard 


accompanied by a simple, hand 
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system of fixing the PCB and 
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""The Spectrum Is connectec 


£55.00 it is not cheap, and it is 



dark grey keys. There are 62 

the keyboard end consists ol 

delete, E mode and up/down ar- 
row keys. On the left are addi- 
tional Edit, Caps Lock end 
left/right arrow keys. A full size 
space bar is titled. 

Key legends are of the stick- 
on type and are all printed in 
white, the extra keys are printed 
in large bold form and Stand OUt 

Fitting 


T 


mm — «- 


typed this article on it using 

reasonable bui 1 prelerred other 
boards that I'd used. For pro- 
gramming it has many advan- 
tagesover the old Spectrum but 


S.DE vi£w 


Possibly 1 could see a use in 
Educational establishments 

Micro Board International, The 
School House, Station Ap- 
proach, Woking, GU22 7UY. 











POWERFUL AND INEXPENSIVE BUSINESS SOFTWARE 
FOR ZX81, T/S1000 and T/S1500 COMPUTERS 

ZX-TEXT ZX-CALC ZX-CALENDAR 




A.F.R. SOFTWARE - 1605 Pennsylvania Avenue, No. 204 - Miami Beach, Florida 33139 

DEALER INQUIRIES WELCOME (3Q5) 531-6464 FLORIDA RESIDENTS IMCLUDE-5% Sale T„x 




Leonardo is PROGRAMMI 
DRAWING, a way of crsBti 



|G@EaiPQg?[]K](g. , 

Leonardo 



Jrmy Tin; 1 1 -: , i i ■ M,r„. nficrs ihree magnjfii 

t me Oolions- CliLAIL CiHAI'HICS. else when 

nyK Save GRAPHICS and LOAD car be ii 

s for GRAPHICS. Starling todrawus- 



LhH h!5K SiHJUlTuni. lis <:\ is displayed irlthe too lalU:Qrner ol 

Illy nailir; nl HOrmjons who tie cha<l(|i-d ea;;iiy\ Alter sorllt 



of tl 






Ai a 



i: NK'IRV. 



Iiul are availably and a 9B page The WllslDO\ 

manual is wailing lo take you allows a nroal 

ih.ouyh the laiii'iiies oilerwi. ,. : r ,. : . L . i i ■ i .■, :r,l,-.: U r 

uvmwn in a veiy Htfec-JvB and aov: :o oe dslnied'i-. Von' 
at Krst, to some pretty heayy Creating colour pa Hi 




POOLS PREDICTION 



Takes lull account 0' 
Promotlcn/relegatior 



48 WINS (309 DIVIDENDS) received by author so far. 

Mr RAP. (Secretary, Orpington Computer Club). 

-MrD.L.B. (Fellfiam). 
rare thing these days" - Mr L.G.P. (Shrewsbury) 

RACING PREDICTION 



MASTERFILE 



HOME & BUSINESS FILING SYSTEM 

The most versatile database for the 48K Spectrum. 

• Up to 36 User-Defined screen/print formats per tile, and each 
can display different selection of fields, in different sequence. 

" High efficiency data packing, no wasted filespace. 

• Super fast, multi-level file search, record selection capability. 

• Up to 51 columns, and 22 lines per record can be displayed. 

• From 1 to 22 records at a time can be shown on screen. 

• Up to 128 characters per field, 36 fields per record. 

• Compatible with Tasman. Euroelectronics and Kempston 
printer interfaces, and adaptable for most disc systems. 

"... (he best database lor trie spectrum Is now even better." Sinclair User. Jan 85. 

Design your own print layout with MF-PRINT. 

editing ond column totals. Almost no reduction In space Qvailable'for data' 

• Mast erf ile version 09 £14.95 i^p^std™.™^! 

• MF-Print E6.95 i^H^J?"" 

• Masterfile with MF-Print £19.95 SS&ig'SZjL 

■ Enhanced version available for Amstrad at £24.95 




Campbell Systems 



■TJIG10 1TD. England. Tel: 0) 508 50S8 



:cs 
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The Artist 



Recently released in competition with 

Leonardo' is Softeks 'The Artist'. Carol 

Brooksbank tried it out for ZX. 
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are Q, R, S and T. Th.r -.ji ::u.>.>k Irom one pixel to one character 


and paste mode can produce a 
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memory is automatically up- 
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perfect every time. Y.rj musl 
make sure that the shape ,<*. 
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ed, though. Even a one p ael 


'",.)■ nir even in a screen dump. 

rog i's UDG handling 

s superb. There are eight sets of 
'■'I' 1 ■»■■■ defined in the program, 
end you can redefine seven of 
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i c-s.li.-f i -ic . Ijacouse all 1he shading 
patterns and type faces are held 
in I'm- uijplucs sets. The pro- 



sod they offer a printing service. 

and they will provide colour prin- 
touts al prices ranging trom7 5p 
foraone-olf3" wide to C2 for 



iili. Ir!:;ifiy i:ii [ha scrpisn i! pitri.Mjr program on the ta 

latyou can, ifyouwish, part, □! your screens, store and so splendidly lives up to tl 



TneDArAPENIightpen 
youtocreafehighresa . 
pictures ond technical layouts 
directlyonyourT.V.screer T " _ 
accompanylng sollware. 

accuracy, in lull colour an 
results may be utilised wltt 
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Across the Pond 



by Mark L. Fend rick 



lapter 



ispley 



lo with it. One of the major dif- ing his own applications. 

erencas between the Spectrum book is a joy to read thank 

nd the T/S 206B, the four Fred's easy going style 

isplay modes, are explained humor, and ought to beine 

arlyon.butthereisnoe.plana- i S 2068 owner's library, i 



tunately, although each mode is 

towards' the utilization of soy 

Part 2 of the book is concern- 



Kingdom and imported to the 


to access most of the com- 


Wheo 1 first got my copy of the 


' 4 \-\, .-■ ill l:i,i- Iij [lie 1 ftj 

JIJ68 CI'=.ptL-i 15 uaguideto 










^'zXSpeT.lum.tndTheQL^n 


,h< Ttuf ne V > b t O S e d ctJ0ri entitled 


■:W /is referredlolhc upcoming In 


2068 ROM which can be called 
from your programs. Combined 
WHM Ihi: Bi;yinnvr. Intermediate 


iSvM'cSrnptat^c'inplata 


"The Basics of BASIC", is a 


termediuie Advanced guide for 
much of it. 1 contacted the 


with the T/5 1000:1500 and 
can be utilized with no problem 


BASIC. Along the wav F-rerj has 


publisher only to he told that the 


usernuf ih..-T SIJHfiB. Both are 


ZX Spectrum a're mostly com- 
patible with the T/S 2068, but 


grams wl , ' i ,-'l !■ ' i. ir.j 


interest, it might be put back on 


at the reasonable price of 
$9.95. The setwouldalsomake 


since the T/S 2068 has a 

modified Spectrum ROM which 
includes additional features, 


HfT;E'\s''fS 


saferSaK 


2068 owner «i'nosE :j itn.J.iv, oi 
uiliur nccasion, is right around 


they are not included in these 


demonstrates the FOR 


was finally published. 




ho'weyer°made up ttis^S^t 


fc-wqJcs'iu.C'i : iv.,n.ir;-iL~t 


Guide a is"des?gnedTo tak^you 


Basics and Beyond 










2068. often with their titles 






Arioiiiei hook j.i-n published by 




Pa.i 2 gives you some prac- 






for the T/S 2068. 






limex.Sinc.aii owners is T/S 








206B BASICS AND BEYOND by 


Itn specifically fur the T/S2068 






ShamnZurdenn Akcr Many of 


















we will consider this time. 


M*kr , | | 1%I t *1'J$m£b 


.„; .... ,...,. ■-". DmD ut , B d rs i nC 


which t-ormed'y ' cove'ref the 


T/S Books 


graphics', colors and BEEPs; 


Hit: T.S 2u-.iS speulical^Thu 


Sin.j.'.aii Lomputuis. BASICS 




"Toll Totalizer", which is a 




AMD BEYOND is just what you 




digital limertokeep track of the 


they interrelate are discussed, 




entitled; TIMEX SINCLAIR 








2068 BEGINNER/INTER- 


calls; and "Bio-Graph", which 






MEDIATE GUIDE by Fred 


plots your biorythms. The se- 




The book' contains over 120 


Blechman (published by Howard 








W. Sams El Co., Inc; 4300 West 




The final chapter in Part 1 is 




62nd Street; Indianapolis. In- 


Banner" which allows you to 


E.plorinqtheT/S2068 BASIC. 


she desenbes.'and each, :no- 


diana 46268), Along time fan 




The operating system is e.plain- 




of the Sinclair computer. Fred is 












T/S 2068 handles variable 






which gives you a way to keep 




ji.il inietly rnerilionud In 


theory, so you will find clear 


track of any collect i you -nay 


the operation of the BASIC inter- 


Tunex manual are illustrated in 


plain English descriptions with 


have, "Sounds of Music?" 


preter. Section B of Part 1 lakes 




programs to illustrate each sub- 




you inside the T/S 2068. Thn 








Z80 Ce-ir-ai frc;essi"ti Umi is 




guide on saf arias you make your 


mand; and "Long Distance 


explofea. pud -he Temc-y nap 


proTS Ir tact rot only are the 




Navigator", which may be used 














parts — Getting Started, and 


radio operators (such as Fred). 


and Inp.n-OuJpn: iat:'t,. ;s A 




Practical Programs. You are 








taken from the set -up procedure 




tha T/S 205S to the nuts ide 






fully explained. Even if these 






part of your system] through 




tor, the 10CK ■ 01 ■ ■■ • 










manyo'Ms AJW s tips extremely 


-I-!,.. l-,:., y o., r„.k: .,!,.,;, 


and description of the techni- 


nector T..e programs if,'.: 





will be treated to enlightening 
logic, trigonometric functions, 



ion on program 

us policing The 



ind effects to enhar 
grams. Tohelp you i 
r, Appendix C contai 



1LPROJECTS includes ihsT/S 
i00 and 1500 in iis descrip 
ins of projects. This book is 



As vim ni.iv fjussi Irom the 

velopment. II is for ill-; begin- 

ir.oili,r,Li.ihiJMi;.onv.iMtpii;lei: ■ 
mics.AdiscussionoftheZBO 







eady tc 



... .__t, Appendix B gives you hook for the T/5206B program- 

4 -1 i|-utp ' 

■ aniNuiis lnin= yrruws bo-i-; l-oia',man =_i i . I Company 1 1 900 the 82 1 2 Input p ■ ■ 

patterns, gobblers and building East Lake Avenue; Glenview, II- 4 you will build 

is a gem I was most impressed lightingcontrols, 

. The thirty p 

BEEP and SOUND commands, by in* same pi sluir 

Alil-oi,... h it, BL-L-P jnmnond is POWERFUL PROJECTS WIT 

relatively easy to master and YOUR TIM EX /SINCLAIR by Ji 



ih-Imui.-i 


plete the book. Two of these are 








1000/1500 owner. They are 








Decoder for trie TS1000 and 




1500land Appendix HConver- 








1000 and 1500). 




This is not the complete list of 












X COMPUTING OCTOBER/NOVEMBER 1! 



A Visit TO 
Melbourne House 



Spectrun - 1982 MbB 
Houseg. nk. v ;..in,.:„ ■ 
tionforb-ng Irittuixxlv 
company i-owevB' til 



II Hi 



i Melbourne Hous 

was adopted by r 



[OBBIT 



ZXC thought the time might be 
right to take a look at Melbourne 




W$?g£ 




T^Tut D S P ect L ,°u 9 m n ' S R b OM 


a suitably hi-tech building, with 

relaxed atmosphere. Tucked 
Studio B. are the three in-house 


SP 




■ lisussmibly is lrt'.-.|UM.:ly rt.i-ir 
red to as the definitive guide to 
the inner workings of the 


programmers. Alter a quick cup 








of coffee, 1 started to chat with 




















motions officer. 


C-" ,i 
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1 asked how the 'company 


founded by Alfred Milgrom and 


fcf^^ 




wenl about planning both books 


su^i'sfn^Ty",' | a n nd M b eTbo d urne! 
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missioned, produced by an in- 


that the Commodore 64 is the 








S SS3 15/it 


™d S e\ P when £^8^™ 








ciple of inihese matters being 'if 


The Hobbit 


gir? a £ 


it not only put 


7rte Hobbit wasn't the onl 
influential product to come on 
of Melbourne House in its earl 
days, though. As Paula pointe 


• 5 t6iTri , i"r, 














or virtually 




utilities'. Melbourne Dow wa 




heard of The Hobbit. Released in 






the first graphics utility for th 








i (Geoff Heath's 


Spectrum, and was ver 










sophisuc.neri lor its time. Onl 




possibly the single most influen- 


■nnuyhi wi-re. 




recently, with the benefit o 














released in the UK market. 






experience have other softwar 


sions of games for various 


Despite the hefty El 4.95 price 






houses produced utiliTic-s thi 


machines. The idea ior The Hob- 


etenToday 1 , wSJbXdTndldd 


jOO.000 !(■: 


tavefoldTust^s 


Ca TherT ?hereT a e s ad 4 U i e n rs D d 


the '^mpanvTVonT Alfred 








FORTH,' one of the earliest im 






We don't 




plementations of that lannuag 






a^s.':^ 










flng. But we 


every happy with 


HURG was an early game 
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BM PC version 
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A possible QL 
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O-Com Modem 



i 200/1200 baud i 



it was touch and go for a while, but 

the Q-Com package has appeared at 

last. 





least fori 


hemomenl-itlacks 


mailbox, spooling for saving in- 


who care to monitor (he charges 
















Bright Star ought to be 






communications package were 








a file name from Q.'Conneet's 










Phonebook is entered. The corn- 












new computers into the outside 






transfer and VT1O0 terminal 




world. Needless to say, Sinclair 




of empty promises, 






was equally upset as QL com- 




i and thoroughly bit- 








chy terra 


irks about Tandata, 1 


There is an encryptation feature 


ed to dial the number displayed 


for the computer's marketability 


0,1.1 o:i\ 


sensu ratha \ t he com- 


transmission 9 ! ^ven^'had 


himself. An LED on Q-Call in- 


business mafkal rather than just 


p'any's a' 




much chance to play with the 


i-, fLiniilioniny. [iruperly Alule an 










LED on Q-Mode shows that 


Tandata, however, came to 


of three" 


'Bp S arate d units C twa IS a t 


which Jn m3ke k s eV it Pe | , ook pretty 








I optional. The essen- 


secure. The only drawback tie- 




OELproduct and the company's 


tijl livt..: 


is a-Connect, an in- 










nodule supporting OL 










ications from75 to 








9600 bai 


Jd supported by an e<- 






ding to Tandata, orders are 




ackage of software on 


for l.ansmission to other OU 




already being shipped to those 


a QL mk 


rodrive. In my review 


and is ossential if the QL is evor 


Q-Connect Is fhe base with 



iously as a Q . Cl! „ f meel abova ;, Q . Mnfl 

Another QL u Tw thouTa 

aackage, the OL Bright Star duct - which obviously makes O-ConnB0t, the Computet will | 0t tf extra wires adding to the 

House, recently hit the market process than machine code. A then enter a sir.i-.yof u> u> if, u,- ^mp.^-r. My only real criticism 

sver £200. Although nobody would give Q-Connect's soft- entered again for deoyphering E S an3 |ess hancita runs a nflVo! 

expects two companies fighting ware the same prolessional feel which ainceyouhava tokeapa I damaging the bus connectors as 

aver a fairly small market of QL and appearance as the latest the different keys on record. ;h, ■■..„",-. f -.. . .. ,i iinl. = [otBfngthe 

awners to be the best of friends, versions ol the four Psion mattes things B bit clumsier than .}„',[„ unl | ; , ' A l| er a n r euerl the 

vibrations emanating from free with each Ql and give the S\ i ■ i ■. ■■ . ii, ■ ■ RSA ■.,=.■ . .., joining 

the embittered. Tandoto rare ixxjiams. are based on the immense dif- The | aunch of tne QL mas 

,et to join in the mud-slinging, Q-Connect is powered faculties inyolved in factoring marred by bad marketing, soft- 

I had hoped to review both powers the QL via a cable to the drfferentpatehasof data and the the comma BteaSonB package. 

products here but despite appropriate port on the back of sysar-n is. Ic- nil [iraciical |.ur- vv , , promKerl to be a 'quan- 

repeated promises ovei the last she computer. Tins is a handy |ujse. unbreakable. British , um |g ap . in home-micros 

has yet to supply even the another wall plug but won't tographic products based upon by pj cking . UD ar d carrying on 

, similar procedure and 1 .vsh witl] the 0EL modemi Tandata 

hese sorts of user-friendly it 5nol ,| rt have been on from the 

The two other units which 

nake up the Tandata QL com- Q-Connecf (plus software): 

From what I do know of the nected to the computer's SER2 an Q-Mod: £79.95 

Bright Star, it appears a good port at the back. but are designed to work with Q-Calk £49.95 

product. It is an intelligent Extensive Boftware features Q-Connect's telesoftware. Available from Tandata 

modem which, in some ways, is include a CFT lelesoftware Q-Mod is the modpm wiv.h Marketing, Albert Rd North, 

a more versatite eommunteatot downloadar, a number of con- communicates at 1200/75 Malvern, Worcs. 

than Tandata's although - at figuration menus including a baud (full duplex! for links to Tel; 06B45 68421 , I 



pretty quickly, 


Sf;i! no reason to sepatati 


ered from the QL. Oths 
:al features includ 
: transmit and reoeiv 
a 25-pin RS232 dat 




1 fur us review port, 
i- tlwuaiipnteof Q-Conn 


ectcan be used with jus 



&IlOTira_a? PACESETTERS 



TWO NEW INTERFACES FOR THE 
SPECTRUM WITH NIDD VALLEY'S 
SLOW MOTION CONTROL BUILT IN 



SPECTRUM PACESETTER 

ion compatible with slow motion contra. £1 4.95 

555S!ifiS4£^PaoBBetlBr™ilipysUck ,£2/-9? 

PROGRAMMABLE PACESETTER 

lr.:'.y '!■ pri);,r,-.ir - -■; Al-i ALL iliris-i K !* pl«W'1 



Do you want 

to learn 

machine code 

the easy way? 





WORKS 1 

SPECTRUM 5, CREATE 
PICTURES, SKETCHES, 
ANIMATIONS AND 
GRAPHS. PICK FROM 
MENUOF16ROUTINES. 
COMPLETE WITH 
INTERFACE CIRCUIT 
(PLUGS DIRECT IN TO 
USER PORT) AMD 
SOFTWARE PROGRAM 
WITH COMPREHENSIVE 
INSTRUCTIONS, NO 
NEED TO KNOW 
ANYTHING ABOUT 
MACHINE CODE OR 
EVEN BASIC 
PROGRAMMING. 



LIGHT PEN £10 inclusive VAT &PP 



POST TODAY -LOOK AT WHAT 
YOU CAN GET FOR YOUR MONEY: 



Add 




D 5S£SS 


s» 


sm. 


._ 


, 




K5SEU 




I Th* Bating 


ss 


e Include an 
■areas follows: 




2SZSS 


.hauld Include * n *d 


"™"-°" h 


„.„* 




&mjaute& 



!X COMPUTING OCTOBER 



I ZX PROGRAMMING I 



Light Screen 
Designer 



Part Eight by Toni Baker 




marker cursor. Final'v. ARC ri*u -ruber also, that the , 
THRU draws an arc from the drawn anticlockwise - 



srlorlcoiTiings nl rim coutinos THRU lu w<:rk properly, the cur- 
Consider ARC USING for In- sors should ba the right way 



C9-RET. The byte occurs at andthe angle through which th 

Bfroj in 3ASIC by typing POKE separately ■ in this case it mu! 

57647,201. Be INPUT. The remaining tw 

all about ARCs. options are different. ARC US 



I ZX PROGRAMMING I 





BASIC INPUT 



■iliirii] ;in i'i:,-uin.jry .■ .r.:l.- ■, 
;>iiS:ii.!s rhr.-iiiiili ill 1 Ihrn- pi 



/ou type INPUT AS 



I a tat of useful stuff help prompt . A help pi 
rtrcular example of be any sequence of t 
ild be very. very, which is supplied for y 



E16B, called INPUT_ITEM. It viding that the registers^, B, C, 

needs the subroutine CHECK _ am/ Hi ar,i ornpeilv iri.tmhssd. A 

INPUT (here at address EUEI in must contain AO (INPUT LINE 

order for it to work, but bearing string), 20 (INPUT stringl. or 60 



I ZX PROGRAMMING I 




No frills. No gimmicks. 
Just the serious business 
of having fun. 




We know ihe problem 



thing. That would be boring. 

Sometimes you want to be serious and explore its 

capabilities. At others you just want to cut loose 

and zap a iew aliens or sharpen your game skills. 

Even try a bit of education. 



Personal Saltware is th 

Get to grips with it. Every quarter. 



:. The best ot games, 
lities and education. 



(•try- 



Seikosha GP50S 



The GP50S is styled 






e USA T 



words, it plugs straight into th 
penuhtiiiilsiiDM at the rear of th 

■iiicila 'i I tiny sort, just like th 

old.-XPnntCT. 



GP50SisE30ch 



.1 ...itjjsi for ex- 
Duyh the GP50S 



on hack £100 + , 



E GP50's 



GP50S is 



Spectrum lessons 




Sofllee's 'See-Hear' package of 'Educa 

lip Speotfum but is an 'King Tut's Treasi 

::eip::>pire:ii (nreduca- Count' being the 

lers. Soltlee's system by Sofi Option. 

[ereo laps - one track These programs 



Look to The Sky! 



•i9~--'r,Ma'r,iima> 



it Quests (£7.971, Mirroi 



. ol :C3 9b], Skysoft, 38 I 



COMPETITION 



z-80 Reference ' 

JH m ^m ^^ made by an 

^p ^J | £| ^J The questions 

we've got ten copies to give to S^S^TI 
aspiring programmers. t£S€?7?™i 




Melbourne 
The Z-BQ Reference Guide. And 
while I was visiting Melbourne 
it recently, Paula Byrne 



The rules 


coming adventure game, basso 
upon a novel by J.R.R. Tolkein? 
6)As a tiebreaker, tell us lin 25 

like a copy of the Z80 Reference 


• This competition isopentoal 
UK and Northern Ireland readers 
of ZX Computing, except 
employees Of Argus S|ii-:;ialisl 


Binatone 

Competition 


There was a good response to 


ed before the 30th November 
and sent to the Editorial address. 

entered into with regard to Che 

entry that the Editor's decision is 


Walaya't, Sheflield; Davie 

Scholield, Somersstl J>! 

Butler, Surrey. 

All the above should have 
you read this - happy loadingl 


§§3EsiE 






onpon to; ZSO Competition, ZX Computing, 1 Golden 
ndonW1R3AB. 

>§— 



APPLICATIONS 



After the Games gig! 

Regular contributor and sage, John cSS,'™°° : 

wase, muses on some practical ways of „„,_„ 5h ,_™ 

answering the perennial question, "But 2 .,„;„™, „» . 

what does it DO?" ffiss f££ 



S«SiS«RfS£ 


Number crunching 


sssBKasssa 


oSJwidFaESno^uSg 








il,;r prnguiir.. she : an INPUTS 


lacking im.o tliem In find the in- 


10 soyle complicated algebraic 


There are sufficient REMarks to 


■ wi>dii-.en 3 'on.-:l 3h.apa, DRAW 


finiielivei POKE. But justPOKE- 








ino games can be like tinkering 


analytical solutions. Our Bill 




the data as required before SA- 




McManamey wrote a simple 




VEing on microdrive. Data for 
















stored. 


trum Is more than just a games 








machine, ii 15 on extremely well 
designed and powerful 8 -bit 

although, regrettably, the 


Decreasing 
increments 


the program to deal with Neither 
creases. As it is a comparatively 


Shaping up the 
program 


(among rubber buttons have 




straightforward program, it 


Thisprogram,(Fig.4|,isoneofa 


resulted in a certain lack of 


For equations of the type 




■,uii,:,.i [!■-.:.■ iiho otl-.ers will be 


credibility. Nonetheless, people 




tion. If more solutions are 




□ut there are actually applying it 


by putting fix) equal to d and 




".HASH.', i.but 




changing 1 until d is acceptably 




then one operation of the tracer 




near to zero. At first, relatively 


If you are not sure about it. 






large increments of * are used, 




; .loi--.vr MHiii.iisui'iiuleconse- 




then, nearer the answer, the in- 


2x aa -'nt3x) -1.7 = 0. Type 


num'f.e. Mnr. v-r. it allows the 






in (he listing, RUN it and ENTER 


user to alter the SAVE routines 


couple. . . . 


words, you are asking the corn- 


the sample values for x, a. and 


without too much difficulty. 


Figum 7. 




increases 




5 PRINT "**DECREA5INB INCREM 


180 IF SGN d=5GN m THEN BO TO 1 


ENT METHOD**" 




50 




IOO REM Main loop 


190 LET x=x-a 




105 PRINT "x = 


initial trial va 


200 LET a=a/10 




lue, (whi 


ch must be less 


210 GO TO 120 




than the corr 


ect value) , 


410 REM Input e 


guation 


a = 


initial incremen 


420 PRINT "Rear 


range your equat 


t of x , b = 


acceptable value 


ion to the form 


f(x> = 0" 


of d>." 




430 PRINT "Pres 


5 any key to con 


110 INPUT " x = 


" ,x , " a = ",a," 


t i nue " 




b = ",b 




440 PAUSE 0: CLS : PRINT "ENTER 


115 60 SUB 400 




THE STATEMENT 


500 L 


120 BO SUB 500 




ET d=f <x> 


(Hher 


125 REM In case 


the first guess 


e f <x> is your e 


quation in x , eq 


is correct — ur 


likely! 


ual to zero) . 


THEN 


130 IF ABS d<b 


THEN BO SUB 550: 


ENTER CONTINUE": 


STOP 


STOP 




500 LET d=funct 


ion of x equal t 


135 REM See 17= 




□ zero 




140 LET m=d 




510 RETURN 




150 LET x=x+a 




550 PRINT "k="; 


i ,"d = ";d: POKE 2 


160 GO SUB 500 




3692,255: RETURN 




165 GO SUB 550 




6O0 REM /. - 1 , a 


=0.2, b=0. 000O1 , 


170 IF ABS d<b 


THEN STOP 




31 )- (LN (3*x ) ) - 1 


175 REM This er 


ables the 






program to deal 


with d either 






increasing or dE 


creasing as v 


Um,**************** 


't"*"*"*"-^ 
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■■ xk/n.-iy I.x.-ii,ixxh:-: !/n,;:n//> .-i 



The hardware 



in goes the profile 



dicate tha position 






und £150 for A4 


LINE 1B0. 




J A4 RD-Tracer is 






C60. IC70 for nn 


PUT and 




, so the A4 RD- 






ihosen. Whilst RD 






are unfortunately 






th us, the tracer is 


the profile 


INPUT, values are 




5 REM *«*»*-»**##*»*****»***» 

6 REM ***#PRDGRAM TRACE1**** 

7 REM ** @ S- LAFLIN 19B5 ** 
B REM »#»*#*# **»#** ■***#***** 

10 DIM C<2,205! 

15 LET p=PI/400 

20 REM DRAW SCREEN 

INK O: 



.W 0,-80 
60 PLOT 1B4,40: DRAW 
70 PRINT AT 5,6; "y" 
BO PRINT AT 16,23;"x" 
90 PRINT AT 17,25; "O" 
100 PRINT AT IB, 6; "Pas 



HO PRINT ' 



respcii 



120 PRINT "and press any key" 
130 FLASH 1: PRINT AT 16,6; "A" 

135 BO SUB 1000: FLASH O: PRINT 
AT 16,6; "A" 

136 LET x0=x: LET yO=y 

140 FLASH 1: PRINT AT 16,21; "B" 

145 BO SUB 1000: FLASH O: PRINT 
AT 16,21; "B" 

146 LET y0=0.5*(y0+y) : LET xmax 

150 FLASH Is PRINT AT 7,6;"C" 



APPLICATIONS 



155 SO SUB 1000: FLASH O: PRINT 
AT 7,6; "C" 

156 LET ymax=y: LET x0=0.5*(k0+ 

160 FLASH 1: PRINT AT 7,21; "D" 

165 BO SUB lOOO: FLA5H O: PRINT 
AT 7,21; "D" 

166 LET ymax=0.5» (ymax+y) : LET 
x<nax=0.5*(xroa!i+>(> 

170 LET xs=l 

171 IF xmax=xO THEN BO TO 175 

172 LET X5=255/ <xmax-xO> 

175 LET ys=I 

176 IF ymax=yO THEN GO TO 1B0 

177 LET ys=175/ (ymax-yO) 
180 PAPER 7: BORDER 4: CLS 

1B1 PRINT "Commence plotting." 

152 PRINT "Press any letter to" 

183 PRINT "input next paint." 

1B4 PRINT "Plotting ends when" 

1B5 PRINT "205 points have been 

1B6 PRINT "input, or when a" 
1B7 PRINT "digit is pressed." 
190 BO SUB 1000: CLS : LET i=l 
200 LET c(l,i I=x5»(x-x0) 
210 LET c(2,l)=ys*<yjy0) 

tl.iXl THEN LET c(l,i) 



NEXT 



360 PLOT c(l,i > ,[ 

370 INPUT "Is this correct?";a* 

3B0 IF a*="n" THEN BO TO 400 

390 IF a*="y" THEN 60 TO 450 

395 SO TO 370 

400 PRINT AT 2,2; " Incorrect dat 

404 PRINT "Do you wish to smoat 

405 INPUT a* 

406 IF a*="y" THEN BO TO 310 
410 PRINT "Dd you wish to re-in 

put this data?" 
420 INPUT a* 

430 IF a*="y" THEN BO TO ISO 
440 BO TO 4B0 
450 PRINT AT 2,2; "Do you wish t 



file 



460 INPUT 
470 IF a* 

4S0 PRINT 

another set of- dat 

485 INPUT a* 

490 IF a*: 

495 BO TO 999 



520 PRINT 



530 INPUT a* 
540 IF a*= 
550 INPUT 



THEN BD TO ISO 



i PLOT C<t,I),c(2,iJ 

>2 THEN GD TO 270 
FDR i=2 TO 3: LET ell ,: 



NEXT 



>203 THEN GO 



266 LET c (2,: 
268 LET i=3 
270 LET i=i+: 
TO 300 

280 IF a*<="9" THEN BO TO 300 
290 GO SUB lOOO: BO TD 200 
300 LET num=i+l 
304 FOR i=num-l TO nun 
306 LET c(l,i)=c(l, 1-1)1 LET c( 
2,i)=c(2,i-l) : NEXT i 
310 PAPER 7: BORDER 3: CLS 
320 LET num=num-5: IF num<2 THE 
1 GO TO 400 



330 FOR 
340 LET 

i + 1 ) +c ( 1 , 
350 LET 

i+l)+c (2, 



=1 TO num 
:<l,i>=0.2»(c(l,: 

+2>+c(l,i+3)+c( 
:(2,i)=0.2*<c<2,: 

+2)+o(2,i+3)+cC 



560 OPEN# 4,"ni": 
570 PRINT #4;nur 
580 FOR J=l TO r 
590 PRINT #4:c ( : 
600 NEXT j 
610 CLOSE #4 
620 PRINT "Data 



CLOSE #4 



630 PRINT "in file? ■' ; f * 

640 GO TO 480 

999 STOP 

OOO LET a*=INKEYS 

010 IF a*=CHR* 1266) THEN STOP 

020 IF aS="" THEN BO TO 1000 

030 OUT 31,1: LET m=0 

040 FOR o=l TO 50: LET m=m+lN 3 

045 NEXT o: LET m=0. 02*m 

050 OUT 31,0: LET n=0 

060 FOR o=l TO 50: LET n=n+IN 3 



OCTOBER/NOVEMBER 1: 
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1065 NEXT □: LET n=0.02H 
1O70 LET a=p*(m-10> 
1080 LET b=a-p*(n-10> 
1090 LET x=SIN (a)-SIN 
1100 LET y=CDS (a)-COB 
1110 RETURN 



a INPUT, read! 



ajlivnn in..- fusing of a 
i t M:urui-!iLi the data; Ithus 

profiles can be stored r.is 
■eiy small amounts of 

jml then comparison ol 



genitive seconds pi:r reading. She finally 
lexandy settled on fifty readings which 
d this by gave similar accuracy (two by 



displayed on ihe screen. This. 



-ig the program to SlTIOOttl TOUtine 

U0b3 Ita Brrot fo Once sufficienf data has bee 

on.- ;;r.el position, INPUT, Itle routine stirring : 

■A\i: thiol-: l,y thr,:« UNb 300 is ute n to SRilinm It 

id of o single point, data by taksny a fiui; pom; inrj. 

, futhcr improved displayed on th- screen and tl- 

,..-.r.l ■■- errpr In INPUTnng'i'he ca .,n; offer* 



microdrive, but uses the same ' Tim, ■■:::■;!■■:■.; -, .■/,■,.,■■■,.■■-<,' 

port or Hie edge connector as Jenson. V. C. B Jeffreys. C. i-' . 

ihe RDTracer The -ouiin.: is --Mathematical Merfiods in 

therefore set up for micrcdrive. chemical Engineering", 2nd 



f (if = . The solution is obtained 
by putting IM = d and changing 

. until li ix acceptably near to 0. 
At first, relatively large in- 
crements of i are used, then, 



Applications 



GOODBYTE — 


SPECTRUM 


Game R 




Our Game RRP Our Game rrp Our 










Highway Encounter 7 




5.95 Rocklord's Riot 9 




Nick Faldo's Golf 9 


99 


7.50 Juggernaut 7 


95 5.96 Tir na nog 9.95 7.50 








95 7.50 Dundarach 9.95 7.50 








95 5.95 Technician Ted 5 95 4,95 






B.99 Southern Belle 7 


96 6,96 Dragontorc 7.95 595 


Spy vs Spy 9 




7.50 Red Moon S 


95 5.25 Moon Cresta 6.35 5.25 


Everyone's a Wally 9 


96 


7.50 Red Arrow B 


95 6,75 Confusion 6.95 5.25 




96 




95 4.95 Tales ol Arabian Nights 6.00 4.95 




96 


5.95 International Karate 6 


50 4 95 War Lords 6.00 4.95 


World Series Baseball 6 


96 


5.25 Bored of ihe Rings 6 


95 5.25 Sherlock 14.95 11.00 




96 


750 Cylu 2 


50 175 TheHobbrt 14.95 11.00 
















85 5.95 Tlnderbox 4.99 4.99 


Cauldron 7 


98 


5.99 Terror Molinos 6 


95 5.25 One on One 9.95 7.50 


Herbert's Dummy Run 9 


96 


7.50 White Lightning 14 


95 11.00 Archon 9.95 7.50 


TWIN KINGDOM VALLEY 7 


95 


2.99 3D Star Strike 5 


95 1.95 Quick Shot II 11.95 6.99 


GYRON B 


M 


5.99 Animated Strip Poker 5 


95 5.25 Bad Interfaces (programmable) 19.95 14.95 


Jel Set Willy II B 




5.25 Formula One a 


95 S.75 


Nodes of Yesod 9 




7.50 Rooky Horror Show B 


95 S.75 








95 5.25 Please note: if our order exceeds 






5.25 Match Day 7 


95 5.95 £50 you get 10% further discount. 


LORDS OF MIDNIGHT a 


95 


5.99 Gltt From the Gods 9 


95 7.50 


Doomdark's Revenge 9 


96 


5.99 Shadow Fire 9 


95 7.50 send cheque/PO to:- 
















95 750 GOODBYTE (ZX), 


Robin ol Sherwood 9 
Profanation 7 


95 


7.50 Mini Office 5 
7.50 Combat Lyni. B 
5.95 On the run 6 


f ** 94, Leather Lane, London EC1 
k 525 Tel: 01-404 4245 


Way of the Eroding F,s, B 


95 


5.75 Grand National 6 


95 5.25 0« M f 1 *. MmHMM <p 



I SPECTRUM UTILITY) 



Clocking On 

Carol Brooksbank keeps track of time 
with this useful machine code program. 



useful to be able to display a 

the screen. The Spectrum has 
its own built in clock. The pro- 
blem is bow to display it, and 


ORG 


i sting. 


which is not equipped lor multi 






tasking. 

The Spectrum handbook has 
a BASIC program which, by 
PEEKing the three FRAMES 


FE21 
FE23 


EDI 7 


from the values held there, pro- 
duces an accurate clock. The 


FE27 


FD34.020O 


inim is doing that it is not doing 
anything else. It seems that you 


FE2B 


10,D 


game, but not both. But it can be 
done, if you know a little about 

Ihc interrupt modes. 


FE2D 
FES-2 
FE37 


16001BS449 
4D4516011B 

30 3 03 A 30 30 


interrupts 

In the normal state of Spectrum 
affairs, it stops what it is doing 


FE3C 
FE41 

FE49 


3A3030 1 602 
212DFE C7E) F 


50 times per second and par- 


FE4C 


06 1C 


ROM subroutine at 0038h - 
updating the FRAMES vti: .-jN.-j'j 
and scanning the keyboard. This 
is Interrupi Mode 1 . IIM1 ) But 
thereisanotherlnwrrui.il Murk,-. 
IM2. (Actually there are two, 


™ 


» e 


!?"' ! hls , 1? tlie , Dne wtllch C( "' 


FE50 


23 



CLDCK CDDE LISTING 




LD A 


FE«2B> 




vector'add 


LD I 














Select: 


LOCTV 


FLAG] 


00 


screen ° " 




MESS 




Print AT 1 


DEFM 






"TIME" 


DEFM 






AT 2,24 


DEFM 






"00:00:00" 


L»H 


,DEFM 




liZUT" 


LD B 


,1C 




Counter of 












going horribly wro 






50 interrupts per 




than 1i50sec. to 


. The Spec- 


FE57 3E3F 


called again, an 

of the subroutine c 
Although the Spec 


<&2S£ 


FES'? ED47 
FESB C9 




play, and, Hound another snag. 
Using RST10 alters some of the 
system variables - TV FLAG, 5 
POSN, etc. Soalt hough the sub- 



FEBO 360BFF [7F> 

FEBa 32osffi7F> 



So out went R 
direct POKEs i 
displaying the 



FESF 3A06FFC 
FE92 3C 
FE93 3206FE.C 
FE96 FEOfl 

FE9B 3B29 



mheninlM2.Onaninterrupt.it 
byte is FFh, and whose high byte 



2 IM2 instruction, you 



t SPECTRUM UTILITY I 



Flgur, 


1 Avs 


lB m •<*•«• 


<o, t*, < S « use, 


ROM ADDRESS. 






(Vector) 




Bytes There 


RAM ADDRESS 


06FF 




DD71 


71 DD 






186D 


6D1B 






69 61 


6469 






22 5 D 


ED22 


1 EFF 




CD 67 


67CD 


28FF 




5C7E 


7E5C 































FEAD 3A03FF 
















ingle 


FEB4 FEW! 



FEBC 3fir:.2FJ 

FEBF 3C 

FECO 3202FF 

FEC3 3E38 

FEC5 320AFF 





bout in the ROM 


forar 

















1 found the one al 28 FF, which 
gives the RAM address 7E5C, 


FECD 
FECE 


0*>FF 


neatly there without over- 






graphics. 


FSOS 


« 


Conversion 


FED5 


0600 


To simplify the conversion bet- 
ween machines, 1 have placed 
the 48K routine at FE5C. The 







B^ilC RAN- 
nmediately preceedin H it so DOMIZE USE 65057 1322891 
hat the subroutine operation «.il start the clock and RAM- 
sn bypass the subroutine ad- DOMIZE USR 65109 (32341 ) 



'. ilii: (irsi l..,'t._-i sno-.iMl M:- ly stop ; win ■(Af.DiJiv'i II US"! 
siari .-outuie. and the final 6510U cm4 1i. RANdyvi,-:? 
I the atop routine. If you USR65057 (322891 will start 



FEDF 3E40 



OCTOBER /NO VEMBEFI 1 
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FEEF 320flF_F<7 
FEF2 3A0BFFC 
FEF5 3C 
FEF6 FEOA 




7F02 


32514 


7F03 


32513 


7FQ5 


32517 


7FQ6 


3251B 


7F08 


32520 


7 F09 


32521 


7f01 


32513 


„ in " d l°™ 










5 "TIME ELAPS- 




ar, howeve 


even after CLS. 



FF02 00 


H10 




DEFB 








DEFB 








DEFB 








DEFB 


FF07 Ofl 


tlD 




DEFB 
DEFB 




S10 




DEFB 




SD 




DEFB 


FFOO 00 


SCR 


LB 


DEFB 


FFOE 00 


VABS 


LB 


DEFB 



■ r CLEAR 65056 (32; 



I SEE BELOW 



** SEE BELDU 



IS FF01 - 
le program 
! CODE of 
!ach digit 
stored is 
i therefore 



CLEAR 05056 I322B9) 

linue. SAVE. LOAD, VERI 

briefly, and a stroll «ii -.,rr,n 
"TIME ELAPSED" and givey 

curred above the running dot 

curately for 9Shr 5 ., 59mii 

I and nigbts at ihe kt 



■ SPECTRUM UTILITY 




variables, For eiainpl^PEEKim 
M10, FF05, 65285 (7F05 
325!7) will tell you that It 



10 RANDOMIZE USR65D57 (3228? 

9899GOT09999 

9900 CLEAR 6505S (3228B) 

9910LOAD'- "CODE 

9999RANOOMIZEUSR65109 13234" 



SAVE "program'' LINE made extensive u 

9900: SAVE "clock" CODE following books: 
65057 1322891.235 

LOGAN. 
The clock runs in real lime, but Understanding your Spectrum, 
you can change this by POKEmu. rTe.chn.cLil explanation of inter- 
other values into FE69. 651 29. rupt instructions) 
I7E69, 32361). Values lower 

than 32H, 50d, will speed the LOGAN EtO'HARA. 

clockup.highervalueswlllslow The complete Spectrum ROM 

it, enabling you to change the disassembiy (Details n* tin: pur 



Mirage 
Microdriver 



r LOAD routine ford 



^ 



The unit is suppliei 



microdrives have 

view. The 

MICRODRIVER, h 



; 1 in the lirst plac 



:ed games using 



face 2 end all the other well 



iquent St, Bra i 



C> ill 'O fit R. NOVEMBER II 



COMPETITION 



QL Caverns 
Competition 



The Competition 




(almost 400). Along the way petition. 

there are a number of objects, • AM -:. : rn -ius- must In.: pusirur- 

such as parachutes, jetpacks ed belore the 30th Novembei 

help von iriyour 
QL Software 

in the Knightlore League, but dition of em 

this is the QL's own version o" docsion is fi 

y, we've got half a dozen on a sooa 

copies of OL Caverns to give to envo.noc 
software starved QL owner 

d by an in- 



BOOK REVIEWS 



Ha r wood's 
Hypothesis 

computer 

Shuffling over from software reviews, HanaBook 
David Harwood is now delving into ZX's Xw™ 
tottering book pile. 



The On-Line 





beanothBrrelaaseof Melbourne House (Publishers), 
Shadow ROM software, bur Castle Yard House, Castle Yard, 
author still explains fully Richmond. I 



Simulation 
Software 



is STONKERS by Imagine (the 





Software Roundup 



sonal favourite - THE FOREST, 


irig IK ZX81 program. It may 


tho'se dreamt"" ^ "" 




a graphic orienteering si mil la- 
lion from Phipps Associates. 


masterpiece of programming. 


me T n h t er at ha t l me e s n "oTe'r "th 


^eatu^elhavetta^asmany 


Other Simulations 


There is much controversy 






Flight Simulations have been 


best chess program so far. Each 
has different strengths and 


v'olencetn C ln'e?r'pr E ograms a V D 


grams' S^h'wB^sf/'tO 










claimed programs for the ZX81 
was Psion/Sinclair's FLIGHT 


two. Without sticking our necks 


My personal view is that provirj 
ed there is no gratuitous 




SIMULATION which was rapidly 
converted for the Spectrum, 
Hudson Co-smta-.i p.o 


IS CHESS and SUPERCHESS 


a syngas over eve rythi ngther 


Our apologies if we left out 


3 5^6 a large number of sup- 


is the realisation thjt h is juki 


any which you or the company 




UiB graphically amazing QL 


ai Tknow there' 5 are' argument 


!rS'™r tooToH on a arftenfrlt 


CHESS which 1 saw at a 


andVhavrno^nten'tionof^e 1 


mcmte b^bscausB 'we ' hadn't 






ting a long discussion on th 






com-nent on its playing ability 


topic. Quite simply 1 hope yo 






;,: '. :.:>ks superb. 






I ' P h<SNMa.''= l Li-Mi^')'."" a 


Boaid game conversions 








lend nol to be my cup of tea, 1 do 






J |SE=|EJ 


sot ;ne value of using the com- 






S;H£SHi?H 


WARGAMES 












| cati-u-c i jitkl'e ■leser.u-i.l 








[ Bimple options that 1 actually 


Sinclair/Psion's SCRASBLE and 


ir Defence 


CCS 


Traditional and 


BACKGAMMON. 


Apocalypse 


Red Shift 


Board Games 


Endgame 


Arnhem 


CCS 


This is another type of program 


So there we are, it seems that 






ZXC readers. The race to pro- 


desira e s Ve bB°it f Ct^rffltn'g'trlo 


Atram 


PD ViGual Marketing 


duce the best CHESS program 


course 'of history, making a 






was another of the earliest 


million, flying a plane or driving a 


Battle 1917 


CCS 



Battle FDr Midway PSS Oligopoly CCS 

Bulge Mind Games Planetfall APS 

Confrontation Loth 1 or i an Racing Manager Virgin 

Doomdark's Revenge Beyond The Bi? Virgin 

Fa 1 1 of Rome APS Un i ted CCS 

Insurgency CCS 

Johnny Reb Lothlorian 

STRATEGY 

Lords of Midnight Beyond 



to Broad Street Mind Ga. 

Viking Raiders Firebird 

Stockmarket CCS 

War Zone CCS 

Superpower CCS 

War -70 CCS 

GRAPHIC SPORTS SIMULATIONS 

BUSINESS /MANAGEMENT SIMULATION Brian Jacks 

Air 1 ine CCS Superstar Chal 1 enge Mar tech 

American Footbal 1 Mind Games Chequered Flag Sinclai 

Auto Chef CCS Daley Thompson's 

Brewery CCS Decathlon Ocean 

Football Manager Addictive Games Full Throttle Microme 

Formula One CRL Frank Bruno's 

Grand Prix Manager Si licon Joy Bowing El i te 



lugsy Melbourne House 



HeathrOH 
luggernai 






Star 2000 



Ocear 



OTHER SIMULATIONS 



Night Flight 






Hewson Consultant' 



IONAL/B0ARD GAMES 






SPECTRUM CAME 



Sappro 

A two player inter-planetary strategy 

game by C. Harris from the planet 

Leicester. 



UQLITRIRE the 



ictt 1>» 



s» co 



TRfiMSFER 



erof one of the planets 



Playing the Came 



Press Enter" is shown. Player 
two should now make his exit. 

LOOP 

When the p layer has pressed 
ENTER, hie personal information 
it; displayed with the number of 



hull. :!:cliiiiilriC]y warfare. The 



■I- i' : point i'i playing tor player two. Player one 

~ie game. Prompts for the should dtpari mid player two 

hange of player/end of turn are should follow the instni.-f-r-s 

iuen to allow this to take place, from the label LOOP. 



I REM it*-**-***-**************** 


21 


LET 


bb=0 


♦Underlined characters* 


25 


LET 


□S="0" 


Hare entered in * 


30 


LET 


g-0: LET d2=0 


♦GRAPHICS mode. # 


35 




sc-0: LET end=0 


**#****************+*** 


■10 


LET 


nl=0 




15 


L FT 


ed2=0 


S DIM p*U0,12i: FOR i-1 TO 1 


50 


I FT 


tr=0 


0: READ p*( i ) ; NEXT i 


55 


1 FT 


b2=0 


£ DATA "HOTENTOT", "JAKURUTI", 


60 


LET 


d«0 


"NUMERATOR", "DARTH", "AGAR-AGAR", 


63 


1 FT 


a*="0005" 


'LAPIS LAZULI" , "VDLITAIRE", "GEOD 


63 


LET 


bS="0005" 


ES","IENUS FATUUS", "CRYOCLOS" 


70 






10 BORDER b: PAPER 0: CLE 


73 


LET 


+*="0000" 


11 INK 4 


75 


LET 


<*%- " 0000 " 


15 GO SUB 3000 


30 


LET 


c*="0000" 


17 GO SUB 7000 


33 


DIM 


s*(32) 


20 LET ts-0: LET trn=0 


35 


GO SUB 600 



SPECTRUM CAME 



87 


GO SUB 


6000 








90 
00 


LET tn 
BORDER 





LEI 
INK 


b=0 






03 


LET in 


-0 


GO 


SUB 


?000 


10 


PRINT 


^T 12, S 




»«' 
















20 
i " 


'LAYER 


PAPER 


21 I 







21 


00 SUE 


1300 








22 


IF end 


'1 AND 


bill 


=c* 




"0 SLIB 










30 


PRINT 


INK 2 


AT 2 


2 





50 PRIN' 
4; AT 2.i 



5? BEEP . I 

5? IF d«(l 

N LET ed2- 

9 GO SUB 



1 'PLAYER 2 

95 GO SUB 

96 IF ed2= 



: FOR n-1 T 
NT INK 7; A 

220 PRINT 
2": FOR n=l 



)=UAL b*(l! THEN 
(1) THEN GO SUB 
fl) THEN GO SUB 
11) THEN GO TO 
SID THEN GO SU 



NK 7IAT 3,2; "Flee 
O UAL b*13 TO 4) 
7i AT 3,8+n; "6" 



226 IF UAL b*(3 TO ■ 
GO SUB 4250 

227 INPUT "Position 
bSIl ) 

228 BEEP .1,15 

229 IF bSIl) 
HEN LET end^ 



GO SUB 303 
244 IF b*!I)^ 
1650 



AND end = l T 
IB 4503: LET 



THEN 
THEN 



290 


LET sc=S 


302 


GO TO 400 


304 


REM combat**** 


310 


LET bhata = V«L a$<3 TO 4} 


320 


LET ca=INT shnta/2 


330 


LET 5b=UAL bS!3 TO 4) 


340 


LET cb=INT sb/2 


343 


LET 3 = s!-,ota-cb 


345 


LET d=sb-ca 


350 


IF a<0 THEN LET a=0 


355 


IF d<0 THEN LET d=0 


360 


LET aSl3 TO 4)=5TR* a 


370 


LET b*<3 TO 4)=STR* d 


375 


GO SUB 4300 


378 


PR-INT AT 2,8IS*I TO 15) 


3S0 


PRINT INK 2JAT 2,21 "Flee 


I*J 


OR n»l TO UAL 3*13 TO 4): 


RINT 


INK 2iAT 2,8*nf "R": NEXT 



393 GO TO 9200 

400 REM Home p 1 dnelsll2«n3 

410 LET tn=tn+l 

412 LET d2=d2+l 

415 LET trn=tr-n + l 

417 LET nl-nl+1 

420 LET b-UAL c*(3 TO 4) 

430 LET b-b*l 

440 LET c*I3 TO 41-STR* b 

442 LET b2= UAL e*(3 TO 4) 

444 LET b2=b2+i 

446 LET e*(3 TO 4:=STR» b2 

448 LET nl= UAL +*(3 TO 4): LET 

449 LET f*(3 TO 4)=STR* nl 



SPECTRUM CAME 



470 


GO TO 460 




475 


BEEP ,3,-2 




300 


60 TO 100 




£00 


REM Choose Home P 
CLS ; INK 7 


anet * 


610 


PRINT INK 4! AT 1 


2i "PLA 


IN 


THE SAPPRO SYSTEM 


: PRIN 


620 


FOR i = l TO 10! PR 


NT AT 


3-( 


-101 i i;TAB 6ip*(i 


: NEXT 



760: LET aS( 
>=STRS a 

770 LET c*(l 
=STRS a 

780 BEEP . I , 

800 INPUT P 
ER 2 choose y 

810 LET bill 
= STR* a 

815 IF a* < 1 ) 
900 

B20 LET eSIl 
=STR* a 

830 BEEP . 1, 



11 THEN GO 

880 CLS : ! 
900 REM pll 

910 PRINT 



elei 



930 BEEP . 1, 
,-61 PAUSE 5 
950 GO TO 75 
000 REM Tran 
020 INPUT "T 
: Y/N";d* 
022 BEEP . 1 , 
025 IF dS<>" 
030 INPUT i ' 
035 LET tr=t 
037 IF UAL c 



■STR* a: LET t 



■STRS 
850 



THEN RETURN 



^tr-tUAL cSf3 TO 4) 

ET cs=VAL c*13 TO 4) 

F VAL c*(3 TO 4)>g THEN 



060 LET a*(3 TO 41=STRS tr 

092 LET ls=0: LET tr=0 

093 PRINT BRIGHT 1; INK 2iAT 2 
2|"Fleet 1 " j sS ( TO 15): FOR n=l 
TO VAL a*(3 TO 41: PRINT INK 2 
AT 2,B+n; "B": NEXT n 

094 PRINT AT 20,8; 5* < TO 151: F 
OR n=l TO UAL c*13 TO 4): PRINT 

INK 21AT 20,7+nJ"a": NEXT n 

096 GO TO 9100 

200 REM Clear screen for player 

2 

210 BORDER 7 

220 PRINT INK 7 [ AT 9,13i ,, PLAYE 
R 2"jAT 10, 13! "PRESS" i AT 11,13;'' 
ENTER" 

IF INKEY*=CHR$ 13 THEN GO 

O 1250 

235 BEEP .15,4: PAUSE 1: BEEP . 

5,4! PAUSE l: BEEP .15,B: PAUSE 

l: BEEP .15,3 

240 GO TO 1230 

250 BEEP .07,1! BEEP .07,-1: BE 
EP .07,-3 

260 BORDER 

270 PRINT INK 0SAT 9,131'PLAYE 
R Z";AT 10, 135 "PRESS"iAT 11, 13;" 
ENTER" 

290 RETURN 

300 REM Clear screen for player 

310 BORDER 2 

320 PRINT BRIGHT 1; INK 2|AT 9 
13;"PLAYER l*|flT 10, 13i "PRESS " [ 
T 11, 13; "ENTER" 

330 IF INKEY«=CHR* 13 THEN GO 
1350 

335 BEEP .2,9! BEEP .3,5 
340 GO TO 1330 

350 BEEP .07,1: BEEP .07,-1: BE 
P .07,-3 
360 BORDER 

370 PRINT INK 0[AT 9, 13; "PLAVB 
1"|AT 10,13| "PRESS"|AT 11,131" 

390 RETURN 

500 REM combat with planet 

1505 GO SUB 4400 

1530 LET shot3=VAL c*(3 TO 41 



SPECTRUM CAME 



1562 



= IN 



1569 LET a=shDta-Lb 

1570 LET d=sb-ca 

1580 IF a<0 TH6N LET a=0 

15B5 IF d40 THEN LET d=0 

1590 LET b*13 TO 4)=STR$ d: LET 

c*<3 TO 4>=STR* a 

1593 PRINT AT 2,2is*f TO 20] i AT 

3,2; 5 SI TO 19) 

1600 PRINT INK 7[AT 2,2!"Fleet 

2": FOR n = l TO UAL bS!3 TO -1): F 

RINT INK 7lAT 2, B*n ; " B" '■ NEXT n 

1610 PRINT INK 21AT 3,2; "Planet 
■I FOR M=l TG UAL c$<3 TO 4) I P 

RINT INK 2iAT 3,B*ni*B*: NEXT n 

1611 GO SUE 9200 

1613 IF UAL C$13 TO 4K*0 THEN 

GO SUB 3500 

1615 IF UAL eSI3 TO 4 1 >0 THEN L 

ET end=0 

1630 GO TO 271 

1650 REM Transfer n pit ,plt2 

1670 IF a*(l>=b*(l) THEN RETURN 

1680 PRINT INK 7iAT 2,2; "Fleet 
2": FOR n-1 TO VAL bSI3 TO 4 ) : P 
RINT INK 7;AT 2,B + n;"5"": NEXT n 
1700 PRINT INK 41AT 3,2t"Neuti-a 
1 ships": FOR n = l TO UAL fall 3 T 
O 4)1 PRINT INK 4[AT 3,14tn("B' 
: NEXT n 
1705 INPUT "Transfer- ships? ENTE 

1707 BEEP .1,15 

1710 IF dSO"y" THEN GO TO 245 

1720 LET tr=tr*VAL b* < 3 TO 4) 

1721 INPUT "How many ships?" ;g 

1722 IF UAL f*<3 TO 4>>g THEN L 
ET tr=tr+g 

1723 IF VAL f*:3 TO 4><=g THEN 
LET ti- = tr- + UAL fS(3 TO 4) 

1724 LET C5=ML -fS(3 TO 4) 

1723 IF VAL + SI3 TO 4)}g THEN L 
ET f*(3 TO 4)=STR* t-g+VAL **I3 
TO 4) 1 



726 : 



<»g 



THEN LET 



1740 LET bSI3 TO 4)=STR* tr 

1750 LET C5=0 

1760 LET tr-=3: LET nl=0 

1765 PRINT INK 7iAT 2,2 5 "Fie 
2": FOR n = l TO UAL bS 1 3 TO 4) 
RINT INK 7JAT 2,8*n["P.": NEX 

1766 PRINT AT 3, 15; " 



770 FOR n-1 TO UAL ■ 



ess if amo-y then go to 269 

310 LET tr-tr-tUAL b*(3 TO 4} 
1B11 INPUT "How many ships ?"Jg 
1B12 IF VAL e*13 TO 41<-g THEN 
LET tr=tr+VAL eS ( 3 TO 4) 

ET tr=tr+g 

1B15 LET cs=VAL e*(3 TO 4) 

IF UAL eS<3 TO 4)>g THEN L 
ET e*<3 TO 4)=5TR* t-g+VAL e* ( 3 
TO 4) I 

131B IF cs<=9 THEN LET e*!3 TO 
1-STRS 

LET b*(3 TO 4)=STR* tr 
1B70 LET cs=0: LET tr=0 
18B0 LET b2=0 

IB83 FOR n-1 TO UAL b$(3 TO 4): 
PRINT INK 7(AT 3,B*n["B": NEXT 

1S84 PRINT AT 20,715*1 TO 14) 
18B6 FOR n-1 TO UAL e*(3 TO 4): 
PRINT INK 7JAT 20,6+ni"S": NEXT 



1096 



1900 REM fit 1 v Pit 2 

1905 GO SUB 4400 

1920 LET shota=UAL a*13 TO • 

.930 LET ca-INT shuta/2 

1940 LET sb=VAL e*(3 TO 41 

1960 LET a-Bhota-cb 

970 LET 0=sb-ca 

980 IF a<0 THEN LET a=0 

990 IF d<0 THEN LET d-0 

995 LET a*(3 TO 41-STR* a: 

*(3 TO 4>=STR* d 

997 PRINT AT 2,2lsS( TO 20: 

,2!s*i TO 20) 

PRINT INK 7IAT 3,2i"P 
": FOR n=l TO UAL e*!3 TO 4: 



IN 



3,S + i 



2004 PRINT BRIGHT li INK 2iA - 

,2i"Fleet 1": FOR n = 1 TO UAL , 
3 TO 4): PRINT INK 2 i AT 2,8+1 
3" i NEXT n 



GO SUF 361 



2.920 




e*13 


TO 4 


>0 THEN 


PE( 


ET ed2=0 










2040 


60 TO 


73 








2100 


IF UAL 


aSll 


=UAL 


b* 1 1 I T 


EN 


RETURN 










2103 


PRINT 


INK 


i AT 3,2; »NSu 


ra 


1 S'h 


ps": FOR n- 


TO 


UAL f*l 


T 


D 4> 


PRINT 


INK 


4 [AT 


3 , 1 4 + n ; 


P" 


! NEXT n 










2105 


INPUT 


Transfer 


ships? ENTE 


R Y/ 


" i d* 










2107 


BEEP . 


, 15 








2113 


IF 0*< 


l"y" THEN 


GO TO 1 


57 


2115 


INPUT 


Haw 


nany? 






2120 


LET tr 


■tl-*V 


L a* 


3 TO 4) 




2124 


IF VAL 


•f*(3 


TO 4 


>g THEN 


L 


ET ti 


-tr+s 










2126 


IF UAL 


f*(3 


TO 4 


<=g THE 


4 


LET 


r=tr+U 


iL +* 


3 TO 


4) 




2128 


LET eg 


-UAL 


S<3 


ro 4} 





SPECTRUM CAME | 



=STRS 1-g+UAL f*t3 



2 


32 


IF LB 


= g THEN 


LET f* 


3 TO 


4 


= STR* 








2140 


LET a* (3 TO 4) 


=STR* t 




2150 


LET t 


=b: let 


nl=0 




2 


53 


LET cs-0 






2 


63 


FOR n = 


1 TO UAL 


a* (3 TO 4) : 


PRINT INK 


21 AT 2,8 


*»»"«•! 


NEXT 


2 


63 


PRINT 


AT 3,1513*1 TO 


5) 


2 




FOR n= 


1 TO UAL 


f*13 TO 4) : 


PRINT INK 


41 AT 3,1 


4+n;"B" 


NEXT 



UAL b#(3 TO 4)>=1 THEN LET edl 



3625 IF tnn>-0 THEN LET ed2=e< 

+ l: IF ed2=2 THEN 60 TO 41013 

3640 RETURN 

4000 LET O*"" URGENT MESSAGE 

RON HONE PLANET. . . . Under attai 

..No ships ..HELP!...": 60 TO ' 



4120 LET o*=" Congratulations 

we p 1 anet WINNING the game . . . . ' 

oday the Planetary system toman 

dm the Galaxy" 

4140 60 SUB 4410 

4130 INPUT "Do you want another 

game? ENTER Y/N'ja* 

4160 IF a«0"n" THEN 60 TO 20 

4180 STOP 

4210 LET D«-* NO enemy ship . 

t this planet": 60 TO 4410 

4250 LET oS=" Your + 1 eet has I 

een TOTALLY DESTROYED newer niin 

ning to your HOME planet": 60 TI 



2167 GO TO 9100 

3000 REM USR Space ships**** 

3010 FOR n-0 TO 7 

3020 READ j: POKE USR "a"+n,. 

3030 NEXT n 

3040 DATA BIN 11111000, BIN 01 

100, BIN 00111110, BIN 0000111 



3499 


REM 


pi 




st***# 




3500 


IF 




b* 


3 


TO 4) 


=, 


LET end= 


-1 










3510 


IF 




«• 


1 


=VAL 


:« 


VAL a* 13 


TO 


4) 


- 


THEM 



















3320 


IF 


.rn 


=0 




EN LET 


+ i: 


F e 


nd=2 THEN 60 


■o 


3540 


RETURN 










3600 


RE!' 


destruo 


ion o 


■P 


361B 


IF 


UAL 


aS 


3 


TO 4> 


:- 


LET 


?d2= 


-1 











4412 FOR n=l TO LEN o* 

4415 IF n<=2B THEN PRINT PAPEJ 

?! INK 0iAT lB,30-nio*(r TO n) 
4420 IF n>28 THEN PRINT PAPER 
71 INK 0(AT 18,2io*ln-27 TO r») 
4425 BEEP .07,6: NEXT n 
4430 RETURN 



4527 IF pl=0 THEN LET pl=lj 

4528 PRiNT INK 4 i AT 1,4+2* 
OR pl=B)-2*lpl=6 OR pl=9)li 



SPECTRUM CAME 



4529 IF pl>7 THEN LET pl=pl-7 

4530 INK pi: GO TO 6600 
6100 INK 4! PAPER 

6110 RESTORE 6200: FOR i-1 TO 15 
: READ U,V,M,x: PLOT u,v! DRAW w 
, x: NEXT i 

6120 FOR n-1 TO 17 STEP 3: RESTO 
RE 6210: FOR i = I TO 2 
6130 READ U.V.W,*: PLOT u,v-n: D 
RAW w,«: READ U,V,W,X! PLOT u,v + 
n! DRAW w,x: NEXT i: NEXT n 
6140 FDR i-1 TO 15: READ U,V,W,K 
: PLOT u,v: DRAW w,x: NEXT i 
6200 DATA 0,0,0,175,0,0,255,0,25 
5,0,0, 175,255, 175,-255,0, 15, 143, 
224,0,14, 142,226,0,240, ] 
15, 143,0,32,15,32,224,0 
-30,240,6,0,26, 14,33,226,1 



13,- 



,33, 



L3,- 



13,241 
3 

6220 DATA 14,5,227,0,1, 
,1, 173,254,0, 14, 169,225 
,225,0,241,32, 13,-13,24 
13,0,2,255,0, 14,142,0,2: 
,0,27,242, 142,13, 13,241 
142,-13,13,241,142, 



33,0 
64 It 



-27 



142, 



74,254,0 
0, 14,172 

,33, 13,- 



PLOT 240,16- 



6420 FOR n-1 

n; DRAW +n,0 

6430 NEXT n 

6440 FOR n=l TO 14! PLOT 241,158 

*n! DRAW n,«: PLOT 14,158 + ri! DR'A 

W -n,0: PLOT 14,16-n: DRAW -n,0: 

NEXT n 
6450 PLOT 0,1: DRAW 255,0 
6500 RETURN 

6600 LET cz=0: LET cr=31 : LET bl 
=170: LET al«170: LET b2=87: LET 

ca2=127! LET n-73! 



FOR i 
.StSHR (C! 
.630 LET 3 
til DRAW c: 
>640 PLOT i 



.1*2) 
2: PLOT ca2 + i 

: DRAW Li, -b 



■ ■ ■ ■ ma ■"iat 7,41 -mt 

■ ■ ■ ■ ■ ■ ■ MB" 
7030 PRINT INK 4IAT 10,4|"AN IN 
TER-PLANETARY GAME " | AT 12,31 "OF 
STRATERGY FOR 2 PLAYERS" 
7040 PRINT INK 4!AT 15, 6j" GEOF 
F HARRrs 19B4" 

7050 PRINT INK 4| FLASH HAT IS 
,3) "PRESS ANY KEY TO CONTINUE" 
7060 FOR n-Z TO 30 STEP 3; PRINT 
AT 0,n)"O"IAT 21,l+ni"B": NEXT 

PRINT 



7030 FOR i 



TO 30 STEP 3: 



70B5 FOR n = l TO 21 STEP 3: PRINT 
INK 2iAT n,0|"e"JAT n-l,31|"R" 
: NEXT n 
7095 FOR n=3 TO 21 STEP 3: PRINT 



20 GO TO 7105 




30 FDR n=l TO 101 BEEF 


.02,10- 


NEXT n 




40 BORDER 0: CLS 




50 RETURN 




00 PRINT PAPER 0[AT 


4,12j5SM 


7) i AT 7, 12!5$( TO 7) 


iAT 13,1 


stl TO 10) i AT B.llJS* 


TO 10) i 


9, 11 jsSI TO 9) iAT 10, 


1 1 ; s* i 7 


10) iAT 11, 1 1 i bS ( TO 1 


) 1 AT 12, 


i si! TD 11) : PRINT AT 


18,25 PA 


P 7; =,*( TD 28) : PRINT 


AT 1 ''is 


TO 2S) : PRINT AT 2,2 


h*( TO 2 


SAT 3,2)s»l TD 28) IAT 


20,7; sSl 



IAT 11,22! 



6660 RETURN 

7000 REM Draw Introduction*** 

7010 PAPER 0: BORDER 4: CLS 

7020 PRINT INK 4iAT :■ . 4 ; ' MM I 



9200 PRINT AT 2,23! INK 3) FLA! 
li"COMBAT *|AT 3 , 23; "RESULTS" : 
RETURN 



we, the jury . . . 



Pole Position 

USGold/Datasoft 
£7.95 





GRAPHICS 

ADDICTIVENESS 

OVERALL 



OCTOBER (NOVEMBER 11 





person' score. The vario 


opsins 


Popeye ^^^ 


fact 2D but there are 


graphically at the botton 


%& 


DkTronics ™ 
£7.95 


planes which you can 1 


When the window 








movablehandp ?n b ;s e to S t 


smdl'.-r] 


year ago" taJw^du^lta 


will seemingly walk on 


by pressing 'firs' they 








taken. To use carried 


:,h|,;, ; . 


Popeye finally makes it to the 


V °AII moving obje 
dangerous if they co 


tory window's? any V ti 


■s.'"inil 


The first thing that strikes 








you, this happens if y 


object and use it by 




graphics, they are HUGE, each 




•fire'. Icon graphics a 






will pass behind or in 




is see- 


screen, lovingly detailed and 


you. Ae well as Up/Do 


Built into the prog 


am are 


dard for character graphics. The 


mean special things 






insert tells you precious little 








about what to do and, as 1 would 


or down a rope. 








There can bono sue 








a perfect program anc 


Merseyside and shoot in 


'I ■' ■" 


few tips to you — ignore the 


gestfault 1 can find wit 


ceHern'and tfuTgame 


know.' ' V °" °" Wa " 


However there is a d 






You have to collect 25 hearts 








and take them to Olive, these 


object end the speed a 


I've euer played. 


we are 


ary D u D havetoTee°p h h e e Vrnterast 


■ he" staTmd "dettii ' 






indicated by the lovemeier. Col- 












consider to be state of 


ir:h ;w- 


particular doors, and other ob- 


pushes the limitation 


one way or another, 
gets itl (and so should y 


Rankie 


jects for future use. Eight ob- 


Spectrum back yet « 


GHAPHICS * * * * * 


The most difficult part is the 


GRAPHICS * 


ADDICT1VENESS ***** 


imaginary 3D or 'layer' system 


ADDICTIVENESS 


OVERALL * * 


t*** 


of graphic -j. The graphics are in 


OVERALL * 
















this channel is 


i r-|,:ii,(,r,- 


As 


need calculator 


in-.;.; n.,: 


3 


DEFFNc(n) = (F 
[n# 2 +23575 
236321*256 
[n#2 +23574 
23631 -1 


"+ PEEK 
+ PEEK 
+ PEEK 




2363T,andad 


S llf »<>«.» 


It 


table, minus 1 1 


if=st;:eir-. , : 


us- 


dad CD the o-fls 


««•" 


in 


LET c4 = FN c(4 






Sip; 


M 1 . .1. .1..... 


ich 


when we ma 


have to 


ra- 


'c4' is fasler 


'■'■ 


FN 


the channe! da 


ails o' ini! 


£ 


PRINT ''Numb 
read:";PEEK(c 


, + of sector 


"" 


PRIMT "Cartridge rtame:";:FOR 
i = c4+44 TO c4 *53:PRIMT 
CHRS PEEKi.iNEXTi 



E, ERASE. FORMAT, LOAD, VERIFY and OPEN (or reading 

" a state when; ritual in.:..si,,::U..s.:n: icurriiit; h 

Ulient writes may report the error 'Microdrive 

lually free sectors are used up. CAT is a useful Ci 

generate a fresh map of free sectors, as long as there 

50 unprotected files on the cartridge. 

for writing/SAVE; a" free setmrs are I'ayyed ;+ 

iding/LOADA/ERIFY: Only those secton 

OPEMed, free sector! 
flagged as free, then r 
o be OPENed, all frei 



g MICRODRIVE ADVENTURES! 



been using PRINT rypp! ( 
lalhei Ihan SAVF lOAD i 
CODEorDATAhles i ,uppo 



■'I'! '<i : "w'.> This i'.i if li- 
es will confuse CAT ui 

CHRS 0, when |~did i wMikl'wis 

i.Ai v.nihqr.f.ie l'n-in. So. I tend bytes of the I 

iM..i:,.-iirn l f 1 i.-,C.IIIHi i CHRS record tha equK 

yjnis Im.aiiuri riumocr. or just a HD-00 toHD-l 1 






"!' ' 



POKE rather tti 
style: 




rn.ha 


POKE c4 + 1 






Mots that y 


u cte 


nge the 


CHNAME. and 1 


Terfac 


ECNAM 
el ROM 



POKEci .67,6 



PRINT type files. Thes 



copies CHNAME to RECNAM. MOVE "m";1 ;CHR£ i CHRS 

To allow these files to be nTO M 
deleled quickly, it is probably 

pe-ctrum screen 



again, bytes, I use CURS 2 3 whici 
t seven the disadvantage of being 
n doing TAB code, typically movint 



e a record to be written . it doesn't PRINT anything at all 

idrive we then have to - unfortunately in the Scan- 

octly 512 bytes to it dinavian version of the Spec- 

han using CLOSE, this trum ROM il moves the print 



or more bytes to the file, in- ■ them usinq INPUT. This means 
PEEK you cannot include CHRS 1 3 in 
.asCHRS 13isusedto 
j INPUT. Even TABs to 



creating a Data 
Cartridge 



PRINT "Open for ";"reading ,r The best 
AND PEEK ic4 -241 = 254; tridgetoi 
'■writing" AND PEEK Ic4 +24) I any sect. 



nli.T,iVheni'roE!2byte: 
nw.ins thai you may nee 








™§|l5i™!! 






\^^^^^^if/ m»i ™i^-»-tf—»rft B b™8=« 


done so w«h: 






/^^^^^^/ """^ " 


LET mSII + INTIs/Bl) = CHRS 
(CODEmSn + INTIsfl II + bit) 






•"' DmEClioNoT^^-^^ 


Mao manipulation looks com- 














































/' "-^ 


remember that you only need to 






/ ™ B >nmiiOFTAFiMoiio» ""~*--.. 


reason to force a particular file 










^•-^ 


into a particular microdrive sec- 
tor, or if you want to reduce the 

volved in an ERASE and rewrite 


















il ' 1 ! 1 1 » 1 H . 1 » / 




Mil i I, i , il 1 , 1,1 if! 


to the single revolution of an 






fT »' * '*"»'* 1 • (■ 


overwrite. 






Till "Ml I I 1 ! 




11 \ 1 h^ isstal glji * 3 gsjgi s g le 


Multiple copies of 




p | ~s s?ps si|| | ^ir 1 P 


Files 






1 S £ a ~ £ *" ' •* 


tin an adventure you migh 














TH,5° S ^S™,™N T$St& 


hnTand^ead m aTector t , you wil 


















advised to use INPUT LIME to do record zero of the rex) file, 


DEFFNmlcl = PEEK 








avoid problems witli the quota- PEEK (c4 +1 1 1 and PEEK: 


(c + 27l*2E6 + PEEKIc + Z6 


access speed if thecopies of the 
file are well spread around the 










tape rather than being collected 








found by FN c(n). 


together, so on an B5K tape to 








A map is 32 bytes long, anc 


record two copies half the tape 






the commands : ' to POKE c4 + 1 5 with the ne*t 


the first thing you mighi fin 
useful to do is to save the cur 


length away from each olhe 






POKE c4 +11 ,255:POKE. So slowly but surely you can 










c4 +12.1 PRINT M. build up a r.oll.-i;l«r, oi seniors. 










1 containing, adventure Inca'inti 










Itisinthisuseofthefilethalyou' descriptions, business file! 


LETm4=FNm(c4l 


necessary POKE c4 + 13,0 






can read sitings which youj records Dr whatever, by PRINT- 


DIM mS 1321 


POKE c4 + 1 1 ,255: POKE 






might lite to procc-ss with tin.' . r .n f-A in.-.' demits; interviewed 


FOR 1 = 1 TO 32:LE1 


c4 (12,1 and PRINT HA; PEEK 






VALS function, but more of that 1 with a few POKEs to get the file' 


m$(i)-CHRS PEEK 


Ic4 -1-5931; - that's the fina 






later. 1 names right and to trigger the 


IrM+i-lltNEXTi 


character of the record, be il a 






1 writing oF ;!■.!..,. II vun 'liipi^n to 










SeCtOrS 1 make a mistake you can use 


To force the next record ol 








! ERASE'm';1;CHR$0 + CHRSn 


datatobewrittentoagivensec 








In the meantime let's clest up a , delete tre item and start 


tor the map entry for that secto 








few details of the process of- again, providing you POKE 




the fact that you can PEEK the 






writing sridurs. When H SC-CIO' t: 4 ■ 1 H with something other 




















(c4+41) tells you exactly avoid a "Reading a 'wnie' Miss" - 












FOR i=0 TO 31:POK 










m4 +i.255:NEXTi 








thjit-iMOi'SL:r.:l'tr:i l irii: K -rK.:u.i:H fi-./fi'f.vn-Vi'iiinHKItimB. 


POKE m4 + INT 








downf rom some high number to 




ts/BI. 255 -2 t (s-B_ 








one, then youslart yuiny atonna 
the tape again. The amount of 


Manipulating The 


# INTlsflll 


multiple file copies is to actually 
record different information in 






microdrlvT moto^bu lids' 'uVto 


Map 


To check if sector s' is free fo 


different copies of the same file 
Then, when the file is read, the 




speed and then slows down 














LET lemp = CODE 








which allow data to be altered as 


m*(1 + INTIsS|] 






ad 7 or 8 sectors apart, assum- 


they run will need to use this; 


LET bit = 2 t (s-B* INTfsyBl) 
LET use - INT (temp/bit 


thrng a can P make%n Th adv S emure 




in the map as free for use. To 


|jfbs=K , | 


-2* INT<Iempy2 *it) 


handled correctly. Of course 
, the more you use these multiple 




c4+- 13,0 because we want to maybe with another function: 1 




copies the more tape gets used 





ZX81 Chatterbox 

zxc introduces a new, regular column 
from that saviour of the '81 , Software uj 
Farm's Julian Chappel 



section in my favourite mag. ing them to air their views, com- Frightening tellers. Not a'bit of HI come on! With a bit of elfor 

Whafs it afl about?' _ ments, gripes and grumbles; Somebody extremely famous ZXB1 section could take ove 

you are not the proud owner of other si r I Ii i r, M u lead In I i r i ,, I i l no vi'Thaworld 

that wonderful little machine the make contact with other gerated', at a time when The Universe! Clacton-on-Sea 

ZX81 - then bog off! We don't ZX81/TS1000 owners around rumours lhat he had kicked tin- (Where-?! To give you an idea o 




:olumnissolely 



a J nd D silen1 P mu 5 sic fl - "anrTa.e Se^m^™°rs ' Inste'ad^the (ih^asfure'™! "ve^nlm J °V St ' C,t '"terfaCe 

thai wk vi- got r«1 n! i hi: opposi- interest nils you with the warm cessoraridsipaway in l.ui: hu:: Cooker.? I tec p. yes concerns tin: 

tion, let's get clown to business! to tiling of being warned. A [iy onmpuling la nd ,n the sky. ii'ie ol ,i joys in: k. 0t to be a little 

n ihe that?' I hear you ask. The be a g t I I 

holein the middle of thr Sahara qaosiion "Do you stock any answer is we're not. YOU are! to the feasiiiilily o! ,-onn.-. C hi-.;ui 

Desert wearing ear muffs and ZXB1 titles?" usually brings a Even if yoo an: r.tji a mom tun of joys nek inlorlaco totheZXa 1 at 

the Software Farm. Having anyone foel li..u a bright o.npie you can ooniribuic lo th-s col- sooieihing like this - 

heard of the Software Farm the bug-eyed monster ■mm Mars urne Put pen to paper with any 

chances are that you will have This unhappy sftuatfon has thoughts ahout the ZXB1 Dee! Cosmic Cockerel 

come across the S.F.S.C, [Soft- gone or lor lur.y enough 7XRI on whai.jvei subieci thai in-..':; i hi-,v,i >■„■■•:>■■ !'::i:kiitg For some 

ware Farm Software Club! owners are banding together, your fancy and sen.-; tham in tfmseboUt buying a'/nyii.H ■-..■.< 

which, run by an elusive Theie ,a iinesi in the. air. ZX81 ZX31 CHATTERBOX at the my ZXS1 in order io aid me in 

owners of this little block omeo o ma ha eno Ra E look at 

sunshine into the olhuiwis- puhlnntion. a rather alarm, i-n respnnse is good then ZX8 I the only set of connections at 



■III IIIIH 

; : : : : : : :. g | B r E ak| & 





Yours sincerely. 1 



Machine Code! 



nought of. through the TV 
'•men fan- Ed) your 






organ canfigurai 



death with the ZX81 manual! 
The connectot on the joystick in- 
terface plugs into the computer, 

and the RAM pack in turn fits in- 
to the back of the interface. 













flvxaii'iiv. Wuh the lack cf IN 








BASIC all the interfaces known 








This means that, to the com- 










Youis ilrx/Wdtt'l;-. P.i'i 






tical to the pressing of one nf 


>,!<,<:,'.,, Uioolpro/ect a 


S °a U ndardTt 1 erf a cl%ht''' C V B o e f 


WBSfr. 


keys are usually used, with the 





,■ sl'*|V wuh full ':'■ VC-.I naue lypsf! il 

of each stage as it Assuming inai yc,< 
. obviously, this everyi 'i r;i hui :l-o 



hieroglyphics because you are 
meeting King Tut a week on 
Tuesrlay! Or how about a quick 
degree in Brain Surgery after 



rrijiiu.i'ly use the cursor key ef 


vr^nf 


TdTpera'tede'si.rfP 






iy7 Or perhaps mas 






iry long and nicely B< 








Software Farm's hi-res pre 












s-;r ihu kfiys the game reguire 


(Do 


ctorl really do feel he 






/We apologize lor 



1 REM 88 DUMMY CHARACT 






1 (i LtT A; ■■CDR^l'2E5EB217Fi 










3D20FDC3B240F5D6 B9ABO0EEC9O 




6455473E00005B4 O00OO00232E3 




1F27310000006FB4005F6778BD78" 








30 IF AS ■-■ 1 HUN GOTO 90 












SO POKEX.16* CODE8$lll-CODEBS(2l-476 




70 LETX = X + 1 




BO GOTO 30 




90 LETV = 




100 FOR X- 1651 4 TO 1 6604 












130 IF Y ^9734 AND PEEK 1651 1 =90 THEN 












PRINT "ALL CORRECT ■ NOW DELETE ALL 








150 PRINT" SOMETHING WRONG - CHECK ALL 




LISTINGS CAREFULLY" 





m proper. Ear plugs not s 



iole - Ed. I 



A Jolly Good 
Program 



P022 9 BY 
)n the other hand, in the current 
sSiJHt-f ilieS.F.S.C. Newsletter 



OCTOBEHfNOVEMBEH 1 



I READERS' REVIEWS I 




Readers' Reviews 
Revived! 



As regular readers will know we 

recently dropped this feature, but 

some readers sent in these reviews and 

we couldn't resist them! 



H___ 


suppose it's the price you have TaSPI"0 




.in.1 .-ir'.fmlv iJi'-.-.asd «o keep you 


i.:,-!.i V i<"5'.ichahuge amount of 


Seven stars 


use 'You merely' LOAD 


coming back. Mjsriy's the Ira 


resistance! Dungeon Adventure 


publishing 


Tasword, go into Basic, LOAD 


I o'clock in the morning, 'slept on 


£3.95 


Taspro and follow the instruc- 


1 it' and come back the next day 


hasnolessthanlOO puzzles 10 




iSHinf^ortftis; 






solve, over 220 locations and 


LOADing and using Tasword 






about 100 objects. Even the 






sESriSsS 


SissxLwH 








the answer Id a puzzle in the 


stinking chi'pl Still, rats don't like 


t J rat^ it onU°rit-in'g hil and D Volisn?ng 


!fo a n d aVrnode L9 o L n r Epson r ty P pe C aot- 




have to jse y our brain the whole 


"""ine'adventure Takes place 


your immortal prose. Vet one of 
ii'c jdvainages of Tasword is 


you might have any slight dif- 




such thing as luckl Well, nol 


although you don't need to have 


you have a iiltle skill in Basic or 


portional spacing on daisy wheel 




Colossal Adventure is a 










the original Crowther end 


werdQC^meme^andJfyou'go 


^[s T originaltom! B Far1fom' B 


before you can gaze proudly on 




Woods 'Colossal Caves' with 


to the right place in the adven- 






the added bonus of an extra 70 


though, the object of the gams is 


S r ?.S 1 5S"« t 5 


are exceptional and 10 or 12 






to tansack the shattered Black 


nearer to your own idea oi 










perfection. It is possible, for ex- 


Elite on dor -mat™ are relatively 










simple to do. Slightly inconve- 






don't hinder you by only letting 


or page numbering routine. 












(Iguration of Tasword has to be 






have a rather cleverly designed 








a game you've already got, 




gramming skills of the user. 






though 1 suspect that with the 


in. It also stops you getting kill- 








end game Colossal Adventure is 


ed. If you thought the other two 


made programs to MERGE with 


^hav^^^l^ited numbe^of 




The objective of the game is 


tesyadve"ture atetB * ,0nV *" 


Tasword. One of these is 
Taspro. which produces a more 


F/^SSS 



treasure as you can, rescuing 


arJventu'res a ' 1 F0. d !n6fa'..°'. I'll 


;,l,;-'"i;o?ds aq in a 'ig E ht C iu S stined 


,,/any 


gh Taspro does not 












"'o'd ot'warrlin^lt Sl'tSSiy 






e-d, 1 lee 
















:.M:.e letween words, starting 


used by 


io help pages. There is 












vocabulary large, and te«t pro- 
i,l r. to say the least. 

Adventure Questhasa rather 
less vague objective; find the 


uo^nT&eve™^^''^ tW 


noticeably sparse on the right of 


$*l 


arence to the key func- 










HavevZ^wVartol a g7a'ie 




iritlllv; 


rea, Ray Eckersley, the 










resides therein. 1 only completed 
I his game yesterday after a year 


until 1 played Quest. Still these 


The program works by 


. ■ 


ome° people. He has 


and a half . Thegame starts off m 




iddittst 


s used for the software 


those people who played Col- 


mo'm 8 nr S1Jn ' hemarke,aI,hB 


line and then divides il up bet- 
ween each word by sending 


1,- rfilc.tr 




remember the little brick building 


Colossal Adventure, Adven 










Adventure are available in many 


Peara^c^on^the'screen'isnot 


Sp.:::l.i, 


n RAM. In my case, 1 
e excellent Kemps ton E 
esultsaresogoodthatl 


drowning in the underground 
river, exploring the underwater 


Level 9 Computing 


rSr?ifSS 


ss 




Dep. V 




Over 






229 Hug hen den Road 


^wheelpn'te'rt.thespacing 


addition to Tasword 





ly frustrating with Quest is that 
you are only allowed to carry 
four objects at a time, so you 
often have to retrace your steps 

take the first time. This is really 


need 
DPU 


help, or a complete map 
y of these ihrne. pleas- 
70p to Simon Hitjll.-ir.03 
..i,-:.) :"tilii ! ,ii-. Graffiti in. 
jfth, West Sussex. GU2B 




°-<M 




ZJt COMPUTING OCTOBER (NOV EMBER 1985 



ZX ADVENTURES 



Mordon's Quest 
Melbourne House 
£6.95 



■^mnN^ihni- 



IMindplay; 



?«": This issue we welcome Brian Robb to 
' ' the pages of ZXC (and apologise for 
5 - : wrongly crediting last issue's column 
to Creg Turnbull!). 




ZX ADVENTURES 



Firebird 

E2.50 


escapes from the exploding 
There are incidents at almost 


Telecom hat. now moved into 
adventures with the inclusion ol 
both Suosu/i* and The Helm in 
their range of budget software. 
Budget software does not 

Sub-sunk proves this point being 


around with levers, buttons and 
switches will always produce a 

The game is adequately 
presented and laid out, though 


[ram 'The Seafarers Gazette' 
with the highly unlilkuly :iamn ol 


150 words, but thai is large 
enough for the scope o! the 




budget price adventures. Sub- 




WZ80 PROCRAMMINCB 



First steps in 
Machine code 



Part 6. by David Nowotnik 




ing z: 



bably manage quiie happily 



ommended books 

ihe ZSO machine i 



Index Registers 

The ZSO CPU has two 16 



tions car Hed out i 

and IV. For eiami 
andADDIY.BCwc 



sole 1. IN and OUT opcodes 

N A, <C) ED7B GUT IC),A ED7<3 

NB,(C> ED40 OUT (C),B ED41 

N C, (C) ED4B OUT (C1,C ED49 

N D, (C) ED50 OUT fO,D ED51 

N E,(C> ED5B OUT (E),E ED59 

N H, (CI ED60 OUT (CI,H ED61 

N L,(C) EDfaB OUT (C>,L ED6*y 

M fl,(nnl DBnn OUT Inn) .A D3nn 



IE STOP 

IODE A*-2B>+ CODE A*C 
THEN FOKE X, j 



SO 130T0 30 



IE 94 C 



CD 23 OF 57 11 00 00 CB 12 ( 

3E 7F DEI FE D3 FF IF 30 49 

62 6B CD 10 7C CB 7A 79 20 ( 

21 09 40 30 CD 10 7C 00 CD 6C 7C IB F6 D5 I 

FE 17 CB 7B 7B 3B F5 10 F5 Dl 20 04 FE 56 30 B2 3F ( 

AD C? 7A A7 2B BB CF OC EB 21 7C 40 37 ED 52 30 06 1 

02 CF 1A 13 2A 14 40 37 ED 52 EB DO 



30 FOR 1=3 



az80 PROGRAMMING^ 



2. Assembly Ian 


uage 1 


CALL 3B75 


CD230F 


SCF 




LD DE,0 


1 1 0000 


RL D 


CB12 


RRC D 


CBOA 


CflLL listen 


CD107C 




1BFB 


U)C,1 


0E01 


LD B,0 


0600 


LD ft, 127 


3E7F 


IN A, (25*) 


DBFE 


OUT 1 255), A 


D3FF 


RRA 




JR NC to break 


304«? 


RLA 


17 



ip 1+ BREAK 



perandlso having a 
;en and 2551 



DP D 


BA 


JP NC to ene 


;h D27A7C 


LD H,D 




LDL,E 


6B 


CALL listen 


CD107C 


BIT 7,G 


CB7A 


LD A,C 


79 


JR NZ.+3 


2003 


CP (HL) 


BE 


JR NZ.-42 


2006 


INC HL 


23 


RLA 


17 


JR NC,-15 


30F1 


INC (IY+15) 


FDJ415 


LD HL, 16393 


210910 


LD D,B 




CALL listen 


CD107C 


NOP 


00 


CflLL sysvar 


CD6C7C 




1BF6 


PUSH DE 


D5 


LD E,94 




LD B,2fc 


OfclA 


DEC E 


ID 



! orl>: ;inri F-Dlof IY. ADD IX- 
is DDC9; ADD IY.DE is 
FD1 9; PUSH IX is DDE5 (PUSH 



i-D3C. Nci.! i;ornes -Jiu urjlii-..' 
'd' I08l,and finally ih* opera- 
20. niuiiiH in lour byit- iiistm 



X COMPUTING OCTOBER/NOVEMBER 1 



jZgg PRO GRAMMING^ 



structions Dl ih B SIT, SET. ami 
RESET of IX and IV. Tafee SIT S 

CB76. BIT 6, (IX 4081 is 

DDCB0876; in other words the 



Hgnaiam 


mwd 






syavar 


EX DE,HL 


EB 


Address into DE 




LD HL , 1 650S 


217C40 


St Vr e T. dreG5 X ' f Pr ° qram 




SCF 


37 


Set carry 




SBC HL,DE 


ED52 


Is address still in 




JR NC to end? 




If not, jump 




LD A, IDE) 




Is the byte in RAM. . . 




CP C 


B9 






JR to end? 


2B02 


If so, then jump 




RST OS 


CF1A 


otherwise generate the 




INC DE 








LD HL,1&404 


2A1440 


HL set to end of 
variables 




5CF 








SBC HL.DE 








EX DE.HL 


EB 






RET NC 




If not, carry on 




RST OB 


CF1E 


'•-"«»«■'"' 


r 


g.3. Spectrum Byte Scroll 


routine - BASIC 1 oaiter 




10 CLEAR 


29999 






20 LET X 








30 READ a*: IF a* 


="B" THEN STOP 




40 FOR i 


1 TO LEN 


at STEP 2 




50 LET y 









60 FDR j 


TO 1 






70 LET r 


CODE laflitjl) 




BO LET s 


r-4B-(r> 


57) *7 




70 LET y 


y+i£*s*{ 


j=0)+s*< j=l) 




100 NEXT 








110 POKE 


k , y : LET 






120 NEXT 


i : 60T0 


50 




200 DOT A 


"21FF570 


1 C00OC50 1 E 1 FF097E54 " 




210 DATA 


"5D23011 


i JMFrjEn-|-jB7701EOFKO?Cl" 




220 DATA 


"□B7BB120E6014 6001100582 10 198" 




23Q DATA 


"igCBOll 


'."■'F[iFii-i::l':7,-i J.j:.23C10e" 




240 DATA 


"7BB120EEC9" 




250 DATA 


,: 2100400 


1C000C501 1F00097E54" 




260 DATA 


"S02BO-11 






270 DATA 


"C10B7BB 


20EbO 1 1 8'Xi'l 1 F F5A21 FE " 




2B0 DATA 


"5aial:3': 


1 1FO0EDBB2377 1B2B2BC1 " 




290 DATA 


"QB78B12 


IEEC9" 




300 DATA 


"»" 





















port So, IN A,IC), 
























jort number 254, 










register. The port Is identified by 








the operand which follows the 








■iinyk: byte opcode; DB for IN 






are available fur all 


and D3 for out. Hence the in- 














,"S,'„™Sb*! 


from port 254, and places it in 
register 'A 1 . Port 254 is the 


machine 5 


the program i 



OCTOBER /NOVEMBER 1! 



■Z80 PROGRAMMING^ 



Fig. 4. 


Assembly i anguago 


listing of 




CUtrtl 


LD HL, 22527 


21FF57 


Last screen address 




LD BC , i 72 


OICOOO 


number of lines 




PUSH EC 


C5 


Save this value 




LD BC,-31 


01E1FF 






ADD HL,BC 


09 






LD A, (HL) 


7E 






LD D,H 


54 






LDE.L 


5D 






INC HL 


23 


Ne:;t address 




LD BC.31 


OUFOO 


32 columns -1 




LDIP. 


EDBO 


scroll left 




DEC HL 


2B 


Set to column 32 




LD <HL>,A 


77 






LD BC.-32 


01E0FF 






ADD HL.BC 




of the nei:t line. 




POP BC 


CI 


counter. 




DEC BC 


OB 






LD A,B 




Check if zero 




DP C 


Bl 






JR NZ to loop 


20E6 






LD BC,24 


Oil BOO 


24 Attribute lines 




LD DE.2252B 


1 1005B 






LD HL, 22529 


210158 


Second attribute address 




LD A, (DE) 




Store attribute 




PUSH BC 


C5 


Store line counter 




LD BC.31 


OUFOO 








EDBO 


Scroll left 




DEC HL 


2B 


Set HL to last byte 




LD <HL>,A 








INC DE 


13 






INC HL 


23 


Set HL and DE to 




INC HL 


23 


the next line. 




POP BC 


CI 


Recover line counter 




DEC BC 


OB 


Decrement counter 




LD A,B 


7B 






OR C 


Bl 






JR NZ to loop2 


20EE 


Go back if not zero 




RET 


C9 


Else return to BASIC. 


The s 


-roll right routin 


= 15 very similar to the scroll left 


progra 


n, so it will not 


3e seated 


here. 



.so'l'i.n 


wc 


. ,ii'< 


PC 



it-, rhf-r- 


wlrethei SLOW or 




ieisset.lfFASTisset, 




s terminated; if SLOW 


issut Ih 


n the screen is ref res li- 




ne ZX81 works four 




ter in FAST than in 


SLOW i 


ode, you tan see How 










'" : " 1 


whe Specimen does lit- 


ITU ■ 


BSTOOI, 






is of In 



tttK Atthounh there ace othe 

A.(2S4I command to .ead a "" 5 types of interrupt available I. 

te from tape. You'll also Interrupts are a special form ot the Z80 CPU. the importfln 

tice a command OUT (2 55), A communication for the CPU. ones for the ZX81 and Spec 

u see on the I" c Icrrupi i.MMI! end maskable in 

iding by 'reflecting' I he byte CPU seems to progress through terrupt. As their narr 



? Tii.^^Hiese-Ibv ihuir 
,-ndr: instructions IM 0. 
and IM 2. So, wrient 



he CPU. For example, a ROM or 
iPROM overlaying the main 
tOM could Lie brought into use 

Mode 1 saves the PC con- 



n the 



j the 



machine code (either \ 
that in ROM when you a 
ing in BASIC) com 



in NMI, bul ZXE 1 and Spur. 'rum causes II" 












one example. At certain lime, in 


FortheZXBl there is a VERIFY 


W _*. 


■^Wi 


the LOAD and SAVE sequence, 
it is vitally important thai the 


left/right byte SCROLL which in- 




— 








listening or output routines are 








%'/•■ 


not interrupted. During t his 


tributes. aoda 'wrap-around' ef- 


\ 




■a /' 


Du™ gn'on^ducal perladsin The 




■EN A.^<MLi 


, — 








m DII7 #*" 








ZXS1 VERIFY' 


V ■■F^W 


t 




^VbQBtd 10 be 'scanned (to 


Routine 


■tl' ^ 


i m 


Wl 


BREAK). 

Mode 1 is a filed routine. 


™cluded™, n h d e ZX81 


£?' : 


1 


WJ t 4 


turning the keyboard scan 


ROM, yet it is one for which 
LOADing and SAVEinq tend to 


M*W ' 


1 




Mode 2 provides a lot more 


be unreliable on theZXBI, and 

the plug, and losing the lotl 


_ 


. n 


r « 


ruptl register. When a mode 2 


rhis isolates |ust enough space 

t the top ot RAM lor the verify 


*,r,','»o„*„,„,„„h,w„„ 










other interrupts, and PC is filled 




v usi'M NEW as a direct corn- 


dump of fig.3.withieroslOQ) 






land, LOADaitd RUM the verify 










in fig. 3.. then RUN it to instal 








the bytes. The code is fully re 


Together they form a 1 S-bit ad- 


Ihr, urogram in ROM. 








This verify routine, to be 
















on the LOAD routine in the 


After you have SAVEd your 


48K machine, you ™n.l load i 




ZX81 's ROM. The only change 


3ASIC urogram onto tape, and 


higher in RAM, so that not so 




is at the vital point when a byte is 






routine is ,so aiiowiiig theuse! "o 


read off tape. Instead of putting 


irig. lewirirl . lie tape to the starl 


Once you run the program 


Jwtalttfto?!! *S? 


place in RAM, it is compared 


tadtSJoSwd 1 * ,s 


NEW the loader. Tbe direct com 


^Kn^WMWw^fl'lrffl 


dress. If there is a match, then 
the nest and subsequent bytes. 


RANDUSR31744 


RANDOMISE USR30000 






ecorder, and NEWLINE on the 








omputer, The screen will ap- 


will cause the whole screen 




message (RAO). If the verifica- 


ear as if the program were be 


display to move one byte to the 




mis-matches, then' the 010 


ng loaded. There is no check of 


left, while: 


Some Good Books 


ape^Tbe s°uri to play baTk the 


RANDOMISE USR3006D 






ght program lif you have more 




O.K. That's all the theory 






causes the display to move to 




routine is shown in fig. 1. For 


ou saved the program with 


the right, if you want to incor 






ariables, then CLEARed them 


|ior;,lelllese routines in a BASIC 




in a REM statement 1135 














cellem 'bible' for Z80 machine 


be saved onlo tape. So. first 


nay get a verify error. Other- 




code programmers is the book 


type in the long REM line (line 


wise, if all is wall, you'll get an 




by Rodney Ziik.5, 'Programming 


lOland the loading routinefig.l 


,0 message to tell vou thai the 




the Z80\ This covers all the 






200 IF INKEW = "8" THEN 




oneatatlme, reading from"left 




RANDOMISE USR30000 


great detail, and is an excellent 






210 IF INKEVS= "8" THEN 




delete all lines except line 10, 




RANDOMISE USR30060 


something a little bit more 


and type in the lines given in fig. 






machine specific, then Ton! 


1 (cl. These will transfer the 




The assembly language listing 


Machine Code on your ZX81' 


TO p M 'w hen d ?eq uired°" e Rnair 


Spectrum Scrolling 


for these routines appears in fig 


and '40 Best Machine Code 


save the REM line and loading 


Routines 


Well - that's ill 1 hope you 


Routines for the ZX Spectrum' 






have enjoyed reading iho series 




To use the verify routine, it 


The final Spectrum eiample in 


as much as I've enjoyed writing 










mended. And, of course, ZX 










gram . This is the sequence of ac- 


ng. left or right, moving at- 


peeled. Try writing your own 




tions. First, lower RAMTOP with 






tides to get your teeth intol 








To finish off, here are two 










POKE16388.123 


rthich fall off the edge of the 




which incorporate many of the 


POKE163B9.Z55 


creen re-appea. on the other 


putingforyou to try. Good luck 



■TORTOISE WISEI 



You cannot be serious!! 




About software, that is! Or at least you can't until 
you've made an intelligent decision about 



m, there's a serious danger of going crazy just 

frying to understand the choices. Let alone c""">* 



to an intelligent decision. 

Micro Choice is your answer. Every quarter i 

collects a range of hardware reports so that you car 

make your own choice ol micro or add-ons 

Then you can forget about being too serious an( 
start having fun. Easy when you think about it. isn't if 



\\±cm 
eiiaLeii 



§& Tortoise wise $ 

Even more lines from a Parent Who Gets 
Left Behind — By David Stewart 









;■:: 


chMre'n'ar , e Ch aulte h a a t 


"omir 


know itiat their father and the 
author of this little column in ZX 
Computing every issue are one 
and the same person. It's hard 
enough to keep a secret in our 


1 heard them storm up to their 

agine they reread back copies of 

the magazine in a new light. 


,ili'.:-. m. :■!,:■ is nol'iincl l| 
r,.ii-il.j as n,iu-l ■ 1. ■!■■'■ 

I,,,.i hepn betrayed. 


being 
e they 


So maybe it is Tim 
Slower Ones got in to 

We related in this co 
better. The one thing 


drop me^a 


guessed that it was me and well. 


came back down again were 


wa^ntowo^oMheco 


™tar 


me going. Tortoise W 

ing the funny side It 


o.hm; '■'■ 


thBm h litf. h35 n ™ V wouldbe 








Hares), So, put-pent 






Y-icn: 1 >!.:,. jm* Wj m-jrh 
































come out of'it quite well.' 


an afterthought, 'make that 


-ouiicimg They agree 


isnn 


Jd^rs" a'dLTsZtte 


... toD.v.-in 




1 try to explain to the stony 


the Hare. Idirini t.-ll ihe- 


then, 


Stuart. Tortoise wise 


and send 


spluttered in such a way that 
somehow it sounded slightly 




out, that 1 counted thai a 


'" 


Ed.) 
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■SPECTRUM ADVENTURE0 



David Knight may not have shining 

armour, but the quest he sets from the 

safety of Didcot would challenge King 

Arthur's best! 



0) 

> 

O 



on Earth, 



e gone to the planet 



variables 






s 






Lr* 


Strings 




the string the user types in. 




Variables 

Bill) . gas 


„,.„ 


Variables used by Hie comput 


;™^"* M 


Ferdo, bil 


"*■ 


Variables which [joint tosubrc 


u.ines. 


F 




a chock for whether there are 
it number roi cJirPe-em oiiirt..!:. 


ntly change! 



iral the Mekon's ship, the others 
being beyond your comprehen- 


10 DIM a(8,15,5) 
20 DIM o<7,5) 


yourself take a ship with you, 


30 DIM Cl7,7> 




40 DIM c«<2,7,7> 


get'you bacM Ve " Pe ' Ci """" 


50 DIM d«(33,64] 




60 DIM h»!6, 11 ) 


Entering the 
Program 


70 DIM o«<7,32> 

00 FOR a-1 TO 13! FOR b-I TO 8 
! FOR c-1 TO 3: READ a(b,a,c>-. N 


First, typein program 2. Save it 

SAVE "Pluto Load" LINE 10. 
NExt, type in program 3. Save 


EXT c! NEXT b: NEXT a 


90 FOR a-1 TO 7! FOR b-1 TO 3: 
READ □ta,b) 


this after the other program, 


100 NEXT b: NEXT a 


Now tYMin program iTun it' 


110 FOR a=l TO 7: FOR b=l TO 7: 


and SAVE ihodoia from n afu-r 


READ cd,bl: NEXT bt NEXT a 


DATA al ): SAVE "Data 1" 
DATA o( ): SAVE "Data 2" 
DATA cl ): SAVE "Data 3" 
DATA cS: SAVE "Data 4" 
dSI 1: SAVE "Data 6" DATA 


120 FOR a-1 TO 2: FOR b=l TO 7: 
READ c*(a,b): NEXT b: NEXT a 
130 FOR a-1 TO 53: READ d*(a): 
NEXT a 
140 FOR a-1 TO 6: READ h*<a> ! N 


oil I. Now, if all of the data and 


EXT a 


program is correct, you can 
LOAD it from tape by typing 
LOAD " " or LOAD "Pluto 


150 FOR a-1 TO 7: READ n*(a>: N 
EXT a 



■SPECTRUM ADVENTURE! 



1010 DATA 1,0,1,1,0,1,0,0,0,1,2, 

0,0,1,0,3,0,1,1,1,1,0,0,1,1,5,0, 

1,1,1, £,0,0, 0,1, 7, 0,1, 0,0, 1,1,1, 

0,0,8,0,1,0,0,7,0,1,0,0,9,1,1,0, 

0,7,0, 1,0,0, 10,1,0,0,0,7,0,1,1,0 

,7,1, 1,0,1, 11,1,1,1,0, 12,1,1,0,1 

,7, 1,0, 1,0, 13, 1,1, 1,1, 7, 1,0, 1,1, 

7,0,0,1,1,7,1,0,1,1,7,1,0,0,1 

1020 DATA 14,1,1,1,0,13,1,1,1,1, 

16,0, 1,1,1,17,1,1,1,1,10,1,1,1,1 

,14,0, 1,1, 1,19, 0,1, 1,1, 20, 0,1,0, 

1,21,1, 1,1,0,22,1,1,1,1,23,1,1,1 

, 1,24,1,1, 1,1,23,1,1,1,1,26,0,0, 

0,0,27,1, l,l,i,2B, 1,1, 0,1, 29, 1,0 

,1,0,29,1,0, 1, 1,30, 1,0, 1,1,31,1, 

1,1,1,31,1,1,1,1 

1030 DATA 32,1,1,1,1,29,1,1,1,1, 

29, 1,1, 0,1, 33, 0,1, 1,0, 33, 0,1, 1,1 

,33,0, 1,1, 1,34,1, 1,0,0,31,1, 1,1, 

0,35,1, 1,1,1 

1040 DATA 36,1,1,1,1,36,1,1,0,1, 

31, 1,1, 1,0, 31, 1,1, 1,1, 31, 1,0, 1,1 

,31, 1,1,0,1,25,1, 1,1,0,37,1, 1,1, 

1,36, 1,1, 0,1, 36, 1,1, 0,0, 31, 1,1,0 

,0,3B, 1,0,0,0,39,0,1, 1,0,33, 1,1, 

0,1, 31, 1,1, 1,0, 40, 1,1, 1,1, 36 ,1,1 

,1, 1,36,1, 1,0,1 

1030 DATA 31,1,1,0,0,38,0,0,1,0, 

41, 1,1, 1,1, 33, 1,1, 0,1,31, 1,1, 1,0 

,31, 1,1, 1,1, 42, 1,0, 1,1, 43, 1,0,0, 

1,31,1,1,0,0,41,0,1, 1,0,41,1,1,1 

,1,33,1, 1,0,1 

1060 DATA 23,1,1,1,0,31,1,1,0,1, 

44,0,1,1,0,44,0,0,0,1,16,1,0,1,0 

,43, 1,1, 1,1, 41, 1,1, 1,1, 33, 1,1,0, 

1,46,1,1,1,0,31,1,1,1,1,44,1,1,1* 

,1,47,0,0,0,1 

1070 DATA 27,0,1,1,0,41,1,1,1,1, 

37,1,1,1,1,33,1,1,0,1,20,1,1,1,0 

,48, 1,1,0, 1,44, 1,0, 1,0,44,0,0,0, 

1,29,1,1,1,0,16,1,1,1,1 

1000 DATA 20,1,1,1,1,33,1,1,0,1, 

23,1,1,1,0,16,1,1,1,1,49,0,1,1,1 

,16,0, 1,0, 1,30, 1,0, 1,0,31, 1,0,1, 

1,31,1,0,1,1,32,1,0,0,1,33,1,0,1 

,0 

1090 DATA 12,1,0,1,1,12,1,0,1,1, 

20,1,0,0,1 

2000 REM o 

2010 DATA 1,1,2,1,10,2,2,2,0,13, 

3,3,3,1,13,4,4,30,4,13,3,3,9,8,1 

0,6,6,11,4, 13, 7, 7,B, 1,1 

3000 REM c 

3010 DATA 1,1,10,13,4,9,1,2,1,8, 

10, 1,3, 1,3,2, 14, 4, 3, 'l3,- 1,4 ,3, 3, 

9,8,12,1,3,4,10,17,6,9,1,6,3,7,1 



6,7,1,-1,7,6,9,3,3,1,-1 

4000 REM c* 

4010 DATA -Ring*, "Key", -Scroll", 

"Boat", "Torch", 'Pat Ion*, "SMDrd", 

■F»rdo' , *BI 1 1 " , "Gasher " , "Toranti 



5000 REM <i» 

3010 DATA "You ar» in the ruins. 

■+CHR* 13+"A1 1 around you, bui Id 

ings"+CHR« 13* 'col lapse" 

5013 DATA "You are in the dining 

room."+CHR« 13+"You see Illto's 
rocket. "+CHR» 13+"It iE empty." 
3020 DATA "You're in the hall."+ 
CHR* 13+-A door is to the south. 
-+CHR* 13+"There is a table. " 
3023 DATA "You are on a staircas 
e.*+CHR» 13+*There are Halls tD 
the north andsDuth." 
3030 DATA "You are in a corridor 
. "+CHR* 13+"0pen door- are to th 
e East and"+CHR» 13+"South," 
3033 DATA "You are in the King's 

bedroom. "+CHR« 13+"The Mckon's 

3040 DATA "You're in the castle 
gardens. "+CHR* 13+"There are nea 
t hedges"*CHR» 13+"everyHhere. ■ 
5045 DATA "You're in a grassy cl 
ear lng"*CHR* 13+"There are high 
walls surroundingyou. " 
5030 DATA "You are at the Castle 
Door."+CHR« 13+"There is a gold 

5033 DATA "You are in a bathroom 
."♦CHR* 13+"There is a corridor 
to the North" 

3060 DATA "You are in the gateho 
use."*CHR* 13+"Doors to the West 

and South. " 
3063 DATA "You ars in a clearing 

with a'tCHRt 13+"pond" 
5070 DATA 'You are on the castle 

drive. "+CHR* 13+"The entrance i 
■ to the North. " 

5073 DATA "You are on a pile of 
rubble. "+CHR* 13+"This place sti 



pty!" 

50B3 DATA "You have arrived at a 

clearing'+CHR* 13+"with a tree 
in it," 
5090 DATA "You are at the castle 

gate."+CHR» 13+*To the North is 



the 
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5093 DATA 'You ar* at a statue. ■ 
+CHR* 13+ 'It la o+ the klng." 
5100 DATA "You -find a cauldron h 
ere.-+CHR* 13+"It is of no use t 

3105 DATA "You are In .a clearing 

3110 DATA "You are In a clearing 
. "+CHR* I3+"You see Bill's rocke 
t."+CHR* 13+"It is empty." 
5115 DATA "You are in a clearing 

with a"+CHR* 13tMllled up pond 

In it. ■ 
5120 DATA *You are on a grassy h 

3123 DATA 'You are at a T-junctl 

on In a'+CHR* 13+"path. " 

3130 DATA 'This clearing contain 

s a large'+CHR* 13+"plllar. It h 

olds up the sky!" 

5135 DATA "Fool ! ! ! You have Halk 

•d into a"+CHR* 13+ "DEATH-TRAP !! 

5140 DATA "In this clearing, the 
re is a"+CKR* 13+ -bent tree." 
3143 DATA "You are in a clearing 
Hlth a"+CHR* 13+"ruined house i 
n it. ■ 
3150 DATA "You are in a stinking 

5133 DATA "You are in a ditch, d 

ug Into theground." 

5160 DATA "You are on a path." 

5165 DATA "In this clearing ther 

e is a deadtree. " 

5170 DATA "You are walking along 

3175 DATA "You are on a bridge, 
cro5Sing-+CHR» 13+"the river." 
5180 DATA "In this clearing ther 



1185 DATA ' 
1190 DATA ' 



5200 DATA "You are in a picnic p 
lace.'+CHR* 13+"There are tables 

and benches. " 
3203 DATA "You are in 
. "+CHR« 13+"You see Ph, 
ket. tt ls'+CHR* 13+". 
5210 DATA 'You are In 
HR* 13+"Paths are eve 
3215 DATA -You are at 



+CHR* 13+"Thei 



5223 DATA "You are In a garden s 
urroundlng a small house." 
5230 DATA "You are In a Hoody cl 
earing. "+CHR* 13+"There are tree 
5 everywhere. ' 

5235 DATA "You're in a clearing 
with 2"+CHR* 13+"trees. There's 
a river to the'+CHR* 13+ "West. " 
3240 DATA "You are In a small ho 
use.'+CHRS 13+"You see Toronto's 

ship. "+CHR« 13+ "It is empty." 
5243 DATA 'You are in a clearing 

Hlth three trees in It." 
5250 DATA "You are in a clearing 

Hlth a'+CHR* 13+'holloH log In 



3253 DATA ' 



In 



3260 DATA "You are In a farmyard 

No animator bird stirs." 
3263 DATA "You are at a farmhous 
e. It is-+CHR* 13+" locked and ba 



■Treen' , "Subter 




3 PRINT "Stop The Tape!!!!'-! 
PAUSE 0t CLS 
10 FDR a=21 TO 1 STEP -II FOR 
c-I TO 10: NEXT c! PRINT AT 0,0] 
" The Pluto Adventure. "<a TO ) 
20 NEXT a 

30 FOR a=21 TO 1 STEP -11 FOR 
c-1 TO 10! NEXT c: PRINT AT 2,a- 



OCT0BER/N0VEMBER V. 
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1|" By David P»ter Knight. '(a TO 
1 I NEXT a 
40 PRINT AT 0,1| OVER 11" 



190 PRINT ■■ATTACK 
200 PRINT * "DRINK 




visitedthe sett linen 
t In his personal craft. His cr 
aft is the latest In spaceship 
design. You as the scientist fro 
m Earth, cannot pilot any spa 
ceshlps, except theMekon's delux 
p ship. Your mission Is to 
transport to Plutoand come bach 
In the Mekon's ship, leaving 
the MeliLir,, stranded In t 

110 PRINT '■ In the adventure 
, there are other characters Nh 
lch are either friendly or 
unfriendly toyou. If you attack 
someone, he will become unfrien 
dly. If he lsfrlendly, he Hill g 
ive you a clue. An unfriendly 

person will attack you on sight 



130 PRINT 



SOUTH, EAST 



130 PRINT "TAKE, DROP 

160 PRINT "■QUIT 
ui t program. ' 



10 LET stte'Dita "1 GO SUB 
6370: LET ferdD=1000! LET bill'2 
000: LET btlll=«: LET gasher=300 
0: LET gash* r 1=0: LET toronto=40 
00: LET torontol-0: LET pharto=3 
000: LET phartol-0: LET mekon-60 
00: LET mekonl>0: LET llko=7000: 
LET ilhol=0 

20 POKE 23638,8 

23 GO SUB aiekon: GO SUB ilko! 
60 SUB pharto: 80 SUB toronto: G 
SUB gasher: GO SUB bill! GO SU 
B ferdo 

30 RANDOMIZE 
100 POKE 23692,233 

490 IF c(l,3l<«0 THEN GO TO 99 

491 GO TD 20 

500 REM VOCABULARY 
310 PRINT " ' 'Vocabulary 
32B PRINT '"NORTH, 60UTH, 
and WEST' 
330 PRINT "SAVE, LOAD . 



or load the 
340 PRINT 

330 PRINT 
ne an object 
360 PRINT ' 

370 PRINT "ATTACK 

380 PRINT "DRINK 



position; 
"TAKE, DRI 

■EXAMINE 

■VOCABULARY 



-Take 

.Exam! 





AB 61 "East" 




59B PRINT '"SUIT Quit 


1055 IF a(q,p,5)=l THEN PRINT T 




game. ■ 


AB 61 "West ' 




600 PRINT "-INVENTORY ...Print 


1056 IF q=6 AND p=3 THEN GO TO 




up what you are carrying.' 


9990 




610 PRINT "DATA ...Gives 


1060 IF gasherl=l THEN LET gash 




data on a character.' 


erl-0: GO SUB 8000 




740 PRINT ' ■ "Press a Key.": PAU 


1070 IF Tnekonl = i THEN LET mekon 




SE 


1-0: GO SUB 9000 




749 RETURN 


1076 IF q-7 AND p»l THEN PRINT 




730 REM EXAMINE 


"You have Finished! I ! "* "Noh you 




760 FOR X=l TO LEW Z«: IF Z«IX1 


can go off in the Mekon'5 




-■ ' THEN GO TO 800 


ship! ! ■•! GO TO 9991 




770 NEXT X 


1080 IF llkol=l THEN LET llkol- 




780 PRINT 'Examine WHAT???" 


0: GO SUB 8300 




790 RETURN 


1090 IF billl=l THEN LET billl= 




800 LET z«=z»lx*l TO ) 


0! GO SUB 9230 




B10 IF z*(l>-"R" AND oU,4>=0 T 


1100 IF torontol-1 THEN LET tor 




HEN PRINT D»(l)"l RETURN 


□ntol-0: GO SUB 9500 




820 IF z»(l)-"K" AND Dl2,4>=0 T 


1110 IF phartol-1 THEN LET phar 




HEN PRINT D«t21": RETURN 


tol=0: GO SUB 9750 




830 IF z*(l TO 2>="SC" AND o(3, 


1710 PRINT '-What Now? "1 




41=0 THEN PRINT o»l3) ■ ' : GO TO 


1220 INPUT LINE z* 




3750 


1230 PRINT z*" 




840 IF Z«I1J-"B" AND o(4,4>-0 T 


1233 LET z*=z*+" 




HEN PRINT o»l41": RETURN 






850 IF Z*II)-"T" AND o(5,4>=0 T 


1240 IF z*tl>«'N" AND a<q,p,2)=l 




HEN PRINT o*I3I": RETURN 


THEN LET p-p-1: PRINT ""You g 




B60 IF z*ll)-"P" AND o!6,4)=0 T 


a North"" 




MEN PRINT o»(6>": RETURN 


1230 IF z*ll)-"S" AND a(q,p,3)=l 




870 IF z«ll TO 2)='SW AND o!7, 


THEN LET p=p-lr PRINT ""You g 




4J-0 THEN PRINT o»(7>": RETURN 


o South"" 

1260 IF XBtt TO 2>-"EA" AND alq, 




8B0 PRINT '''Sorry, can't examl 


p,4)-l THEN LET q-q+1: PRINT " 




ne "|z« 


■You go East" * 




890 PRINT 


1270 IF Z«I1)="W" AND alq,p,5)=l 




999 RETURN 


THEN LET q=q-l: PRINT ""You g 




1000 REM Ferdo 






1010 LET q=c(l,3): LET p-c(l,6): 


I2B0 IF z*ll)="T" THEN GO SUB 1 




PRINT d«ta(q,p, 1) ) ' 'You see:';: 


300 




LET yy=0 


1290 IF z*(U = "V" THEN GO SUB 3 




1020 FOR x*l TO 7: IF olx,4)=q A 


00 




ND o(x,3>=p THEN PRINT TAB 101c 


1300 IF Z*(I TO 31="DRO" THEN G 




*(l,o(x,l)ll : LET yy-yy+1 


SUB 1730 




1030 NEXT x 


1310 IF z«<2>-"X- THEN GO SUB 7 




1040 FOR x-2 TO 7: IF c!x,5J«q A 


50 




ND c<x,6)=p THEN PRINT TAB 10|c 


1320 IF z*ll)="K" OR Z*(1)=*A" T 




S(2,clx,l)) | : LET yy=yy*l 


HEN GO SUB 2500 




1050 NEXT x: IF yy=0 THEN FOR r 


1330 IF z«ll TO 3>=*DRI" THEN G 




=1 TO 8! PRINT CHR» 8): NEXT r! 


SUB 3500 




PRINT ' 


1340 IF all, 41=3 AND oIl,5)=4 TH 




1051 PRINT '"Exits:" 


EN PRINT "A« you drop the ring, 




1052 IF alq,p,2)-l THEN PRINT T 


the italuecoies to life. "'It 1 




AB 6| "North" 


s the King. He summons his peop 




1053 IF alq,p,3l=l THEN PRINT T 


le.*'*As a reward, he gives you 




AB 6| "South" 


the MekDn's ship, which was In 




1034 IF a(q,p,4>=l THEN PRINT T 


his his room. "'"You can escape 





■SPECTRUM ADVENTURE! 



GO TO 9991 



370 
I SUB 
380 
1 

390 
->00 
400 



499 RETURN 

500 REM TAKE 

310 FOR X=l TO LEN Z*: IF Z*(X1 

GO TO 1600 
520 NEXT x 
530 PRINT ''Can't take nothing.' 



599 RETURN 



A20 



630 



650 
ND DC 
LET o 



660 
ND oil 
LET o 



F z*=-L0OK» THEN GO SUB ' 



350 
3UU 
360 
THEN PRINT 



d the key. - ': LET p=2 
z*(i TO 31="INV" THEN G 

7500 

F l*""9UIT" THEN GO TO 99 

F Z*»'SAUE' THEN GO SUB 5 
■LOAD* THEN GO SUB 6 
1 TO 4)="DATA" THEN 
l,3)=q: LET c(l,6)=p 



ET Z*-Z*t 
' z*tl)= a R 
51=p THEN 

,51=0: PR 



1 TO ! 

AMD I 

LET I 

NT ' 



"Got the Ri 



RETURN 

F Z»U» = "K" AND o(2,41=q A 
,31=p THEN LET o<2,4)=0: 
2,31=0: PRINT "Got the Ke 
RETURN 

:*(1 TO 21--SC* AND n(3, 
-q AND o<3,3)=p THEN LET ol3, 
=0: LET o<3,51=0: PRINT ""Got 



,3)-p THEN 

4,51=0: pr 

RETURN 
F rt(l»-"T 
,51=p THEN 
3, 31=0: PR 

RETURN 
F »IJ)«"P 



,51'p THEN 
6,31=0: PR 
: RETURN 
;«I1 TO : 
=q AND o(7,5) 

+2: LET 
■,31-0: PRINT ' 
RETURN 



AND 



=q A 

=0: 

the To 



-■SW AND o(7, 
THEN LET c(l, 
o(7,4)=0: LET i 

Got the Sword " ' 



1749 RETURN 

1750 REM DROP 

1760 FOR x=l TO LEN i*: IF 

■■ * THEN GO TD 1800 

1770 NEXT X 

1780 PRINT "Drop What???- 



TO : 



h LET : 



1810 IF I*(ll=-R- 


AND oil, -11=0 T 


HEN LET o(I,1)=q 


LET o(l,31-p: 


RETURN 




1830 IF Z«U TO 2 


=-SC" AND o(3. 


41=0 THEN LET o(3,41=q: LET Ql3 


,51=p: RETURN 




1840 IF zSdl-'B' 


AND a(4,41=0 T 


HEN LET o(4,41=q 


LET o(4,5)=p: 


RETURN 




1850 IF Z*I11=*T" 


AND D(3,41=-0 T 


HEN LET a<5,41=q 


LET o<5,5)=p: 


1860 IF zSlll-'P - 


AND o<6,41«0 T 


HEN LET o(6,4)=q 


LET o(6,5)=p: 


RETURN 




1870 IF I*(l TO 2 


= -SW AND d(7, 


41=0 THEN LET c( 


,4I=C(1,41-Z: 


LET DC7,41=q: LET 


o(7,51=p; RETU 



RN 

1999 RETURN 

2000 REM Bill 

2010 LET Q-CI2.5): LET P=C(2,61: 

LET X-INT (RNIM41+2 
2020 IF A(8,P,X)-0 THEN RETURN 
2030 LET B=Q+ (X=4)- (X=5> : LET P- 
P+IX=3)-<X=-2l: LET C(Z,5»=BS LET 



2040 


IF S=C(1,5) 


AND P= 


C(l,61 T 


EN LET BILL1=1 








2499 


RETURN 








2300 


REM ATTACK 








2510 


FOR x=l TO LEN z*: 


IF 


*(M 


= ■ ■ 


THEN GO TO 


2350 






2520 


NEXT x 








2540 


RETURN 








2550 


LET z*=z*(>+l TO ) 






2560 


LET k-0 








2570 


IF Z*(l)=-B 


THEN 


LET 


k=2 


25B0 


IF Z*<11">'G 


THEN 


LET 


k=3 


2590 


IF I*(1)="T 


THEN 


LET 


k=4 


2600 


IF z*lll=-P 


THEN 


LET 


k=3 


2610 


IF z«(l)=-M 


THEN 


LET 


k-6 


3620 


IF I*(1)-"I 


THEN 


LET 


k = 7 


2630 


IF k=0 THEN 


PRINT 


" ■ 


da 








2633 


IF C(K,51<> 


(1,5) 


JR C 


K,6 


OC< 


,61 THEN P 


(INT C* 


(2,K 


|" 


s not here!*: RE 


l-URN 







■SPECTRUM ADVENTURES 



2640 PRINT 






2630 LET R=INT (RND*12) *C ( 1 . 
LET Rl-INT 1RND#13) >C(k,4) : 
1>R THEN PRINT ""He defem 



2660 


IF r->rl THEN PRINT ""You 


Injur 


e him. -■ ' : LET c(k 


3)=ctk,3 


>-3: 


IF c(k,3)<0 THEN PRINT "c 


*(2,k 


I 1 " Is dead. "! LET 


elk, 51=6 


: LET c(k,6>=7 




2670 


LET clk,7l=-l 




2749 


RETURN 




2730 


FDR x-1 TO LEN z*: 


IF z*(x> 




THEN GO TO 2800 




2760 


NEXT x 




2790 


RETURN 

LET z*=z«!x*l TO 1 




2805 


LET x=0 




2B10 


IF z«<l)='B" THEN 


LET x=2 


2820 


IF Z*I1)-*G' THEN 


LET x=3 


2830 


IF Z*I1)-'T" THEN 


LET x=4 


7840 


IF I«(1»-*P- THEN 


LET x=3 


2850 


IF 2*C1)='M - THEN 


LET x=6 


2860 


IF z»ll)=-I" THEN 


LET x-7 


2870 


IF x=0 THEN PRINT 


■ ■ "No da 


ta a 


allable. " ' : RETURN 


2880 


PRINT ■c«(2,x) ' 'h* 


x-1) ' ' 


2890 


RETURN 




2999 


RETURN 




3000 


REM Gar.hpr 




3010 


LET S=C(3,5): LET 


==CI3,6! : 


LET 


X-INT (WNDMH? 




3020 


IF A<B,P,X>-0 THEN 


RETURN 


3030 


LET B=S+IX=4)-(X=3 


: LET F= 


P*(X 


3>-(X-2>: LET CI3, 


5) -a: let 


CI3 


61-P 




3040 


IF 9-C!l,3) AND P- 


: { 1 , 6 ) TH 


EN LET SASHER1-1 




3499 


RETURN 




3500 


REM DRINK 




3310 


FOR x-1 TO LEN I*: 


IF z*(x> 


= ■ ■ 


THEN 60 TO 3600 




3520 


NEXT h 





3590 RETURN 

3600 IF I*(XHK>'P' OR 0<6,410 

THEN RETURN 

3610 LET e(l,3)=cCl,3>+5: LET cl 

l,41>c(l,4)*5 

3620 RETURN 

3749 RETURN 

3750 FOR a-1 TO 10: PRINT AT a,0 
I" 

": NEXT a 
3770 PLOT 61,96: DRAW 3,0: DRAW 
0,32: DRAW 32,0: DRAW 0,-32: DRA 
W 32,0: DRAW 0,32: DRAW 32,0: DR 



3780 PLOT 32,160! DRAU 0,-6: PLO 

T 32,134: DRAW 0,-6: IF 012,4)0 

THEN DRAW 32,0 

3790 PLOT 64,128: DRAW 0,6: PLOT 
64,160: DRAW 0,-6: PLOT 96,160: 
DRAW 0,-6: PLOT 96,134: DRAW 0, 

-6! DRAU 6,0! PLOT 122,128 
6,0: DRAW 0,6: PLOT 128,1 

AW 0,-6 

3800 PRINT AT 2,0| OVER 1| 

allSta CorrKing" 

3810 PRINT AT 3,01 OVER 1! 
Irs idorRopn" 

3820 PRINT AT 6,41 OVER I; 



Bath" 
3830 PR IN 



AT 7,121 OVER 



3840 PRINT AT 21,311* 
3990 PAUSE 

3999 RETURN 

4000 REM Toronto 

4010 LET a-C(4,5): LET P-C(4,6): 

LET X-INT IRND*4>+2 
4020 IF A<a,P,x)«0 THEN RETURN 
4030 LET 8=B+IX»4>-CX-5>: LET P- 
P+(X=3)-1X>2) : LET C(4,5)-a: LET 



4040 


IF Q=C(1,31 AND P=C<1,6) T1 


EN LET torontol=l 


4499 


RETURN 


4500 


REM LOOK 


4510 


RETURN 


5000 


REM Pharto 


3010 


LET H=CC3,5>: LET P=C(5,6) 


LET 


»INT <RND*4)+2 


3020 


IF Aia,P,XI=0 THEN RETURN 


3030 


LET B=B*(X=4>-(X=5> : LET P= 


P+1X 


3>-(X=2>: LET C(3,5)=a: LE 


CIS 


61=P 


3040 


IF 8=C(1,3) AND P=C(1,6) T 


EN LET phartol-1 


3499 


RETURN 


3500 


REM SAVE 


5510 


LET S«=- ": INPUT 


Filename ta SAVE?'|S9><1 TO 9) 


3320 


SAVE s* DATA a(): SAVE s* + 


1" DATA oil 


3330 


SAVE s«+"2" DATA ell: SAVE 


5»*"3* DATA c«() 


3340 


SAVE *«+>4 a DATA d* ( 1 : SAV 


s** 


3- DATA h*() 


3330 


SAVE M**6" DATA □•') 


3560 


PRINT "'Data SAVEd ■! 


3999 


RETURN 



SPECTRUM APVENTUREJ 



6000 REM Mekon 

£010 LET B-C(6,31: LET P=C(6,6): 

LET X-INT (RND*4)*2 
6020 IF A(S,F,X)=0 THEN RETURN 
6030 LET B-B+(X=41-(X-31 : LET P= 
P*(X-31-(X-2H LET CI6,31=B: LET 

C(6,61=P 
6010 IF B=C(1,51 AND P-C(l,6) TH 
EN LET n*HDnl-l 
£499 RETURN 
6500 REM LOAD 
6310 LET s*—' ": INPUT " 

Filename ta load? '|«IU TO 9) 

6370 LOAD ■• DATA Bill LOAD »*+' 

1" DATA DO 

6380 LOAD o*+'2' DATA c(l! LOAD 

s*+"3" DATA calf I 

£390 LOAD *•*■*■ DATA d*{> ! LOAD 

■•♦-3" DATA h*() 
6600 LOAD B»**6' DATA □•!] 

6999 RETURN 

7000 REM Ilko 

7010 LET B-C(7,31: LET P«=C(7,61: 

LET X-INT <RND*4)+7 
7020 IF A(B,P,X)-0 THEN RETURN 
7030 LET B-B-MX-41-(X-3I : LET P- 
P+(X=3>- (X«2) : LET C(7,3)=B: LET 

CC7,6)-P 
7040 IF B-C(l,31 AND P-C(l,61 TH 
EN LET llkol-1 
7499 RETURN 
7300 REM INVENTORY 
7310 PRINT " "Ydu are carrying : 

7320. FOR X-l TO 7: IF O(X,41=0 T 

HEN PRINT C«11,X) 

7330 NEXT X 

7999 RETURN 

B000 REN MEET GASHER 

0010 PRINT '"Ouhar attacks you 

6020 LET R-INT IRNM12I+CI 1,1] : 

LET Rl-INT (RND*13l+C(3,4): IF R 

1>R THEN LET C CI , 3) -C t 1 , 3) -5: P 

RINT ' ■ "You are Injured' 

B030 IF r>rl THEN PRINT " 'You 

de-fend hla blow." 

0040 RETURN 

0300 REM MEET ILKO 

0310 PRINT "'Ilko attacks you. ■ 

B320 LET R-INT CRWHHZ1 +C 1 1, 41 : 

LET Rl-INT (RND*131+C(7,4] : IF R 

1>R THEN LET C ( 1, 3) -C ( 1 , 31 -3: P 

RINT "-You are Injured" 

SS30 IF Orl THEN PRINT ""Ydu 

defend hi> blow. ■ 

B340 RETURN 



9020 LET R-INT <RND*121 *C C 1 , 41 : 

LET Rl-INT (RND#13}+C(6,4J ! IF R 

1>R THEN LET C ( 1 , 31-C II , 3> -3! P 

RINT ""You are Injured' 

9030 IF r->rl THEN PRINT ''"You 

de-fend his blOH. * 

9040 RETURN 

9230 REM MEET BILL 

9260 IF c(2,7l-l THEN PRINT "'" 

Bill Bay's: "'Ydu need the key t 

□enter the castle"."": RETURN 

9270 PRINT '""Bill attacks you." 

92B0 LET R-INT (RND#12) +C ( 1, 41 : 

LET Rl-INT (RND*13)+C(2,4l: IFR 

1>R THEN LET 0(1,31-0(1,31-3: P 

RINT •■■You are Injured' 

9290 IF r>rl THEN PRINT * ■ "You 

de-fend his blow." 

9300 RETURN 

9300 REM MEET TORONTO 

9310 IF C (4,71-1 THEN PRINT '" 

Toronto say's: "Drop the ring a 

tthe King's feet"."': RETURN 

9320 PRINT "'Toronto attacks yo 

933B LET R=INT 1 RND*12 > t-C ( 1 , 4 t : 
LET Rl-INT (RND#131+C(4,4): IF R 
1>R THEN LET C ( 1 , 31 -C ( 1 , 31 -3: P 
RINT '"You are injured' 
9340 IF r>rl THEN PRINT "'You 
de-fend his blow." 
9330 RETURN 
9730 REM MEET PHARTO 
9760 IF c(3,71-l THEN PRINT "' 
Pharto say's: "Go to the King's 
bedroom to escape""."*': RETURN 

9770 PRINT " 'PhartD attacks ynu 

97B0 LET R-INT (RND*12! +C I 1 ,4) : 

LET Rl-INT (RND*13)+C(3,4I : IF R 

1>R THEN LET C (1 , 31 -C ( 1 ,31 -31 F 

RINT "'You are injured' 

9790 IF r>rl THEN PRINT '"You 

defend his blOH. ■ 

9000 RETURN 

9990 PRINT ■"You are DEAD ■ ! ! - 

9991 FOR A-I TO 100: PAU8E 9\ PR 



INT ' 



IN 



PUT 'Another go?"ia* 

9992 IF a«-'Y' THEN GO TO 10 

9993 INPUT '8ure?"la*: IF a*-'N- 
THEN GO TO 10 



Ql PROGRAM 



QL Characteristics 

David Nowotnik, fresh from his machine 

code series, looks at the QL and 

discovers an interesting udc ability. 



SHIFT. CTRL, a 



1 in (Brest in foreign 
ie capability to pro- 



jt the QL does allow 
:rick is in underslan- 




128 ij 


C ESCI 149 ; 


C 6 1 178 ft 


CSk 1 


129 S 


CS 1 1 156 6 


C 7 1 171 1 


CS 1 1 


138 i 


CS " 1 151 6 


C 8 1 172 « 


CS» 1 


131 i 


CS 3 1 152 6 


C 9 i 173 6 


CSn 1 


132 o 


CS 4 1 153 i 


CS ; 1 174 9 


CSo 1 


133 o 


CS 5 1 154 d 


C ; 1 175 \ 


CSp 1 


134 a 


CS 7 1 155 u 


CS , 1 176 (J 


CSq 1 


13b u 


C ' 1 156 (5 


C = 1 177 t 


CSr 1 


136 5 


CS 9 1 157 4 


CS . 1 178 ♦ 


CSs 1 


13/ n 


CS 8 1 158 * 


CS 1 1 179 i 


CS t 1 


138 t 


CS 8 1 159 ' 


CS 2 1 188 I 


CS u 1 


13? ( 


CS - 1 16B K 


CS a 1 181 8 


CS » 1 


MM 


C , 1 161 J 


CS b 1 182 § 


CSu 1 


14! 6 


C - 1 162 a 


CS c 1 183 8 


CSx 1 


142 5 


C I 1 163 i 


CS d 1 184 « 


CS y 1 


143 e 


C 8 1 164 


CS e 1 185 » 


CSz 1 


144 £ 


C 1 1 165 J 


CS f 1 186 ' 


C [ 1 


145 4 


C 2 1 166 8 


CS g 1 187 * 


C S 1 


144 i 


C 3 1 167 U 


CS h 1 188 1 


C 1 1 


14/ ! 


C 4 1 168 C 


CS i 1 189 ♦ 


CS 6 1 


148 i 


C 5 1 169 it 


CS j 1 198 t 


CS- 1 


»"■»«« .«.«,«,.., 








01 PROGRAM 



SOTS -WM 


.■s rusetvsd. into 


l»( ■■•".7f- 


;op.ed from ROM 
annel 2 (left-hand 


n RAM. So 


the UDGs will be 
hannel2. and only 
codes128to190 


,,111 ■■ 


nged if they are 



Thesestoredaddresseslvec- least) starts at 1 Be/':.; Us rg tsinlng the original ones to- 

iur!,! in the information, blockon PEFK .L ! 1667 52: .-. II -etur ,■.!■,.- ,-,,.. ;■ : 111 you C<!j'd 

?hBsamepmitto"relaittfe 1 iQ , ihr n"mioi™ii!,u" Nock -• «'■-.' :Vte<t» lo- sa:h char-eeii 

start Of the information block. PEEK on addresses 106/56 

The vector to the standard and 166760 will givechannell . 

character set is 42 bytes from and channel 2 Mart addresses, UDC deSigtl 

start of the 'in format ion block, 1667S4, 1667 68, 'etc. program do it for you. My UDG 

the vector address will be easily So. the vector to the 'extra' design program is featured as 

located. Andonce the vector ad- character bit pattern .block in Liiiiny 1 . T v p..- : r.nvlfr'ng and he Med bv you when running 

a'Vw valUB, '» point toytU I18B7601+46, and PEEKZl tand how it works is to see it in Having selected which 

o-vnbii p-1 ten-, table - in i.iher ol ihe.e.:i.lia:-ia;^r...:M; will give operation. character in rn.1r*siyi-. .: on-:.: ...i 

words, your own UDGs. the star! address oi the bit pat- The program is designed to 9 x 5 is drawn in the right hand 

have changed the vector). layout oi the OL. If you haufi enlarged character. All the OL's 

Channels JtJ'ZT',.^, " ff££,"!«K"S m- tSSffXtXSJ- 

The easiest way to find tlie start character bit patterns provides cedure called 'screen' (which sorT'* "1 around the grid with 

□f a particular channel informa- the QL with a very powerful you can type in as a direct com- the cursorcontrol keys, pressing 

tion block is to refer to another feature Vou can redefine mand before running the pro- the space bar to crealeferase a 

information block in RAM, characters for one channel only graml to yiufi vou the le^ured dm in any one position of the 



X COMPUTING OCTOBER /NOVEMBER 1 ! 



QL PROGRAM 



ae. fli , ic Figure2.Luns,La 



I GENERAL FEATURE I 



Peripheral 
Problems 



I.HKll'.t I..I-1 IH'C.lUEi: ilf lire c 



John lire from Birmingham, has a point 
to make. 



Regular readers nt ZX Com- The system I was Irving to with the See c funis ULA :' anornsr bugbear ol rrme Im 

uvUngrnay remember my anicle run included a primer interface should e ..i' I'm "ii .11 vn si.n- ■ uvuJil not Have had as 

attaching a daisywheel pnntei. ironies): a daisywheel printer quire th : jjnt o->ai Ijjl'f :n rif.i n reel v juith a specialist 

nterface, and prod-hisi'mni i.Snuth Cfiruna TP1 1; [he Fuller ing". The oHy way 01 Indiiy coTfjute- shoo Why are fere 

ftt the end of that article I men- Processor program, Tasword bufler is ; v attach r.5 tre »&*, compute- dupartiionts n 






1 Soltw.T,- hrstkeyL .I'-jhadiobe-curco 'a':! 

use of the HslhsSPO seemed to have usod ();!■ 

keyboard in conjunc- it as a foodie I. the Spec-run- cnjv 

special keyboard but' PCB was raker- : jt ol no 1 .1 b> outli 




ZX81 CAME 





David Hanson and Geoffrey Bowers, of 
SMUG — Speyside Microcomputer Users 

Group — sent us this superior racing 

game which needs skill and strategy as 

well as fast reactions. 



Il^wTenTTl.s 


There is a 


PANIC facility - 


Changing the 
Circuit 


?BaTu°res eS SHVe,al lntBre8 " n9 


collect your th 


oughts! 


ijyouca™ easily change ii by 
















ings in lines I020 to 1450. It is 






down scroll, but 




possible time. A record time is 


are not COPY 


dby the punter) 


squared paper first, though. 




Atores on s 






























planning, has PITS for re-fuelling 






















downwards. 




wards. ' 


re and POKE 1641 8. 2 a'ter- 








s SAVEd by GOTO 9990, (he 






program will a 


j to- RUN on LOADing. 


quire two kays to ba pressed at 


show FUEL, TYRE WEAR, LAPS 


instructions 




















5. Your att 














go into the pits and then havt 
















change tyres. 


have a burst t 


re (because your 


Those readers who are familiar 








From now on, Line 1 and 1 Variables Usea 










^Eme'r Listing 1 taking great 


will know of a fool-proof method 


T$(44.32l 


Tra^rVThlcs 
















o be PRINTe 








machine code routines 


E 




which T$ is 


o be PRINTed. 




hold the two machine code 


separate!.^ ^^ 


G,F 


Avarue^u" 


, ' ' .' 


g%'rashes 




Study Listing 2. From left to 




ZS 












ding the 5 lines of Listing 3 llak- 




Length o'ZS. 








dress - Decimal cods 




z 




BCtsrinZS. 






Character - Running lolai 


".. ' i nd2l).Then, type RUN 


z 










The two right-hanr colum-s 


,...J NFWLINE. If all is well, you 






uelling routin 






are for you to check tha; you 






Random time f 










scrolls downwards, leaving two 




Time during ty 


■ i:v.;,ngi! roi 






















1 this does riul happi'n. 


ss.va 










listing. 




LAPS 
FUEL 


FueTtefl "' C °" 


pleted laps. 






The computer will PRIT on 


10-50 and 9500-8610 (but do 




Tyre wear. 








address (starting at 1 65 1 4| and 
give you a prumpt linverse L) to 


NOT eliminate Lines 1 and 2). At 
this point, SAVE the program [if 


TIME 




ar. 














r /h<l/\. .<{/::{::; 


he listing as flEMs in 


















PRINT the character i-.'coiuinnrj 


programs). 


100 










and the total in column 4, exact- 




1000 


TRACK GRAPHICS 






ly as in Listing 2. 


4 (except Lines 1 and 2 which 


1500 


PRINT RECORD TIME (If ap 










3000 


PRINT TRACK AND CAR A 


THE START 




for you to INPUT a string (in- 


recommended that you SAVE 




START VARIA 








verse L again). Check carefully 




5000 


CONTROL CENTRE (The m 








so in case of a power failure or 






to see if keys have been 




exactly as shown in Listing 2. If 


other problems. SAVEing on 












all is well, press Z and NEWLINE. 






FUEL, TW. TIMElT 








an additional safeguard. 


5900 


PRINT FUEL ETC 






any other key and NEWLINE, 


Finally. SAVE the completed 


6000 


CHECK CRASHES (And cro 








program by GOTO 9990 which 












correct decimal code before the 




6500 


PANIC 










LOADing. 


7000 


PIT STOP 












7090 


FUEL 








Note: when the screen Is full, 


Cassette insert 


7200 


TYRE CHANGE 
FINISH ISucce 


S (ul complet 


on of 5 laps) 




5/3510'. When this happens, 




6200 


END ROUTINE 








press CONT and NEWLINE. 




B250 


HIT TREE 








Also, there is a jump in address 




8300 


HIT CROWD 








from 1 5532 to 16539 because 




8400 


TYRE BURST 








the REM in line 2 of the listing 
occupies addresses 


ticularly if you have a ZX printer 
which produces screen dumps 


6500 


TIME UP 
TANK EMPTY 








16533-16538 inclusive. If you 


of the correct size. Why not 


8700 


OFFSCREEN! 




high up or too 




have made an error, then EDIT 














and.re-RUN this program. 


te- still design your own' 


8999 


TITLE 








'«-»' 




"■' 










1 PEM I23-4-5S7390-1S34.S67S9 


16514 




E 


42 




2 REM 123-557^90 i9Ti=Tf-390123 


15515 


12 




54 








16515 




PMD 






9530 LET -_l=@ 




15517 










^5i!5 LET 1=15514 




16515 






154- 




9512 PRINT I: 




15 519 




«■ 


153 




9515 INPUT r. 














9-20 l-'Kl;-;: : S=. 15-LEIJ STP.4 C:C:T 


15521 






227 




P.5 lS^CHPS C:ThB 


38-LEN STP* ;j + 


15522 














16523 




LEN 










15524 




f 


579 




9e:c if is z them ■■ 


15525 






793 








15525 






314- 








15527 




PPiND 


1053 






HEN LET I=1SS3S 


1552-5 






1093 




3"ii I-_1 = L556- THEM GOTO" 96esi~ ' 


15529 






1111 








15532 






1143 




9550 90TC~9Si^ 




15531 




NEXT 


1355 




9600 CL5 




15532 




TflN 


1537 




95 05 LIST 




15539 




E 


1629 




9510 STOP 




1654S 


12 


£ 


164-1 




33 






ZX COMPUTING OCTOBER 







1554-5 
1554-9 
I555C 
15551 

1555: 



1555'? 
15551 
15552 
15555 













1 '-.:,!-, 








195 5 




















23J 


4 


-"'«:: 


-kl:li 










P 


£ = :c 




ES5_ 




=5s-- i7T:iJ: w3s 









=y*&s»^» 










. - _ L ^ 








£££>■-: 








. T _ ■= 








^r-Mv. :":<;' 








_C~C _2 - 








M'-MV..-: ■.. 








ic-cr- ..5" 








;-r-M-4- ■:■ ■■: 








:,:-■? 51 lit 








H^M-fc:-; 








Li 00 li^ 








SEEs*-;;! :■■- 








:- ■"- 


■:. . ■'. 


'■■.. ''■ .= ' 


3 


1120 i'et" 


■:, ■;■.-. 


■? : - : ;-'"'"ii:":' 




. _^S__ 








Ipls; 








ii5 SHH 








_ iee Lg 


'■f 


1 " 


:;««BiSJi^«il;: ;;:.;'..£ 










1170 LET 








J.. 


■- : .'-■; 


,:--,^^,,r:.^...™;,, ■,.,■■ ., 

















■HM^-: 


Mlw LET 






<^^^^»-'" 










:«:■■«' 








_ :_ : e 


TJ 






'".■ :.:■ ■■'.■ j 








124.0 _5~ 


TS 




ssi************* 


- - - M 








1250 LET 


TS 


1 ■ .:■■ 


■ . 1 ■ . , ^JHi'i 


1260 LET 


TS 


- s Ii 


■hhm.hj; 


1270 LET 


Tj 


2 5 =■ 




1230 LET 


TS 


- ™ 












1220 "LET 
















1500' L5T 






.. S ..:. . TiT 


,..;:. 






1310 LET 






'pra^Me**** 


-^KmmSS 







OCTOBER/NOVEMBER 1: 



£3 LET TjBlgl) 



54-Su PRINT PT 



551v LET HJEL=FUJ 

-_,-..-C: '_-:_■: ■_.;? f GS-~ 

j'J.73 GOTO -3900 

^500 LET F=Fii 

E'P-10 PRINT RT £,! 




3013 LET MsSS 

:'0£C let r=3 

■3320 PRINT AT E,0 

334-15 LE~!~ N=N-1 

3053 LET E=E + 1 

3363 IF E=22 THEN 

3373 ±L_E=5i Th£N 



~^0^ 
































■^■;-u 


LET 
























LET 
















'-T 






















IF 
















uDE ±NKEV*=33 THEN G 


5110 


IF 


ODE 


N«EYJ=36 THEN C- 
















5130 


IF 


ODE 










514-3 


IF 


DDE 


NKEY$=112 THEN 


- ■ n 


IF 


DDE 


NKEY*=53 THEN G 



5UB 7303 












S070 IF Tj iNI 








6103 RETURN 




B588 REH BJgj 










. pt 21,3; 


6630 IF INKEY 


■ :■ "" THEN 



THEii SOTO 553 



X COMPUTING OCTOBER,' 





7250 PRINT fl 

. LfiPi . hT 23,11;" 
-2-1H LET T=TIr-iE 



3020 POKE 1S4-18 ,2 
Si3=-0 RETURN 
3100 REH ^SS 
3110 IF TIME 
3120 CL5 



UELL DOME 



90J0 LET i.,: = U3R 16514. 

9040 FRI---T RT 4. : Q . s 5 hT -11,^ - 5 

'" *'* " Mffliti ~rt £0 j- "pan;: 

CONTINUE" 

StfifO :~ IMKE-.- * = : '-' THEM GDTD 9050 
aO "<? RETURN 
9939 STOP 
999C- zP'.-'E : Pg- 



X COMPUTING OCTOBEHINOVEMBEH ' 



I SPECTRUM UTILITY I 



Spectrum 
Disassembler 

s. h. Man from Tottenham presents a 
program for taking apart the ROM or 
any machine code program all in 16K. 




0002 
0005 
.0003 



C3CB11 
2A5D5C 
225F5C 



JF 15F2 
RST 0038 
RST 0038 

RST 0038 
RST 0038 
LD HL, I5C5D: 



5FB CD2C1, 



LD D, (HL) 
EX DE,HL 
CALL 162C 
POP HL 



LD E, (HL) 
INC HL 

LD D, (HL> 



I SPECTRUM UTILITY I 



350 PRINT j 



15 DIM DS(8,4> 

17 FOR J = l TO 8: READ BS ( J ) : N 
EXT J 

20 POKE 23658,8: REM CAPS LOCK 

40 REM #*DEC TO HEX(D=0-16)*# 

45 DEF FN A*(D)=CHR* f(48+D AN 
D D<10)+I55*D AMD D>9)) 

47 DEF FN B(B*)=(CODE B*-48 AH 
D CODE BS<64)+(C0DE BS-55 AND CO 
DE B*>64> 

50 INPUT 



360 


LET COUNT=C0UNT+l 


370 


IF CaUNT=22 THEN GO TO a 


380 


IF I*-"RST 0028" THEN GO 


390 


GO TO 90 


400 


REM *#* CAL *** 


410 


LET C«-"" 


420 


GO SUB 940: REM A TO A« 


430 


GO SUB 980 


440 


LET I*="DEF8 "+C* 



51 IF k*(l)< 


■D" THEN 


GO TO 5 


7 






52 IF LEN K* 


6 OR K*= 


D" THEN 


GO TO 50 






53 GO TO 1500 




54 LET A=VAL 


IK* 12 TU 


1 ) I GOT 


D 60 






55 REM 






37 IF KStl) < 


"H" OR LEN IK*) ( > 


5 THEN GO TO 50 




58 GO TO 1600 




59 GO SUB 13 






60 LET COUNT 


0: CLS 




80 REM *##S 


flRT### 




90 LET C*=" " 


LET B*= 




100 GO SUB 940: GO SUB 


9B0 


110 IF C*(LEN 


C*-l TO 


-"ED" TH 


EN GO TO 510 






120 IF C*(LEN 


C*-l TO 


="CB" TH 


EN GO TO 550 






130 IF C*(LEN 


C*-l TO 


=*DD" TH 


EN GO TO 590 






140 IF C*(LEN 


C*-l TO 


-'■ED" TH 


EN GO TO 610 






150 REM READ 


INSTRUCT 


ON 


160 GO SUB 11) 






185 LET N*=" " 






190 GO SUB 1000: REM F 


ND N 



200 IF LEN N*-0 THEN GO TO 340 
210 IF LEN N*=I THEN GO TO 300 
230 GO SUB 9B0 
240 GO SUB 980 

250 LET B*=C*[LEN C*-l TO )»C*I 
LEN C*-3 TO LEN C*-2) 



290 GO TO 340 
300 REM LEN N»; 
310 GO SUB 980 



I IF C*="38' THEN GO TO 360 

I LET COUNT=COUNT*i 

I IF COUNT-22 THEN GO TO 860 

I GO TO 410 

I REM *#* ED *♦# 

(BYTE/1 



S20 


GO SUB 9S0 


S25 


LET BYTE'BVTE-64 


830 


RESTORE 2500*10*If 


535 


GO SUB 1120 


540 


GO TO 170 


549 


REM 


550 


REM *** CB *** 


553 


GO SUB 980 


555 


GO SUB 560 


556 


GO TO IBS 


560 


RESTORE 3000+10*1 


565 


LET U=INT (BYTE/B 



571 LET V=BYTE-8*I 


JT (BYTE/B J 


572 LET E*=D*(v+lJ 




575 LET I*=L*-»E*<1 


TO 1+ 13 AND 



600 


LET XS=" 


x-: 


GO TO 620 


610 


LET X*=" 


¥" 






620 


GO SUB 9B0 






630 


IF C*(LE 
TO 790 


C* 


1 TO 


)="CB" 


640 


GO SUB 1 


00 ' 






670 


REM **F 


ND POST": 


. OF HL#* 


680 


LET K=l 








690 


IF K>LEN 


I«- 


THE 


•i STOP 


700 


IF I*(K) 


■H" 


AND 


I*(K+1)= 


THEN GO TO 


720 






710 


LET K=K* 


: GO TO 


690 



720 


IF BYTE<=43 OR BYTE=57 OR B n Tn ^ 






YTE> = 


225 THEN GO TD 760 


994 


INPUT "COPY 7Y/N " i 


LINE SS 




725 


REM *# HL > IX+D/IY+D ** 


995 


IF a*0"Y" THEN GO 


TO 50 




730 


GO SUB 980 


996 


COPY : GO TO 50 






735 


LET US=" " 


1000 


REt ., **FIND NO. DF M** 




736 


IF KOLEN I«-l THEN LET US 




LET NS="" 






-ISIH 


+ 2 TO ) 


1010 


FOR J=l TO LEN IS 






740 


LET IS=IS(1 TO K-l) +XS+" + , ' + 


1020 


IF I*( J) < >"W THEN 


GO TO 1 




C9S1LEN CS-1 TO )+U* 


030 








750 


GO TO 185 


1030 


LET NS-NS+FN AS(J) 






760 


REM ** HL -> IX OR IY #* 


1040 


NEXT J 






762 


LET U*=" " 


1050 


RETURN 






764 


IF KOLEN I*-i THEN LET US 


1099 


REM *# READ DATA * 






»I*IK*2 TO ) 


1100 


IF BYTE>=-64 THEN GO TO 114 




770 


LET IS=I*(1 TO K-D+XS+US 










7S0 


GO TO 185 


1110 


RESTORE 2010+10*IHT 


(BYTE/1 




790 


REN **FD CB OR DD CB** 










800 


GO SUB 980: GO SUB 980 


1120 


FOR J=0 TO BYTE-10* 


NT (BYT 




810 


LET BYTE-PEEK (A-I) 










820 


GO SUB 560 


1130 


RETURN 






840 


LET IS=IS( TO LEN IS-31+XS+ 


1140 


IF BYTE<-191,,THEN 


□ TO 11 




■' + "-fC*(5 TO 6)+I«!LEN I*) 


80 








B50 


GO TO 340 


1150 


RESTORE 2200+10*INT 


( (BYTE- 




860 


REM *** MORE? *** 


192) 


10) 






870 


INPUT "MORE 71Y/N/C/E) "i LI 


1160 


FOR J-0 TO BYTE-10* 


NT ( (BY 




NE OS 


TE-192) /101-192: READ IS 


NEXT J 




875 


IF S*="E" THEN STOP 


1170 


RETURN 






880 


IF QS- N N" THEN GO TO 50 


11S0 


RESTORE 2700+10*INT 


1 (BYTE- 




882 


IF QS--Y' THEN GO TO B90 


64) / 








884 


IF SSO'C" THEN GO TO 860 


11BZ 


LET V=INT ( (BYTE-64 


/8)-8*I 




885 


COPY : GO TO 860 


NT ( 


BYTE-64) /64) 






B90 


IF I*="RST 0028° THEN GO T 


1184 


FOR J"0 TO U: READ 


*: NEXT 




910 


J 








900 


IF ISO'DEFB "*CS OR CS="38 


1185 


LET V=BYTE-64-B*INT 


I (BYTE- 




■ THEN GO TO 60 


64) /B) 






910 


CLS : LET COUNT=0 


1186 


LET ES-DSI1+V) 






920 


GO TO 400 


1190 


LET IS=LS+ES(1 TO 1 


(3 AND 




930 


REM 


1+V=7J 1 






940 


REM **CONVERT ft TO AS** 


1195 


IF BYTE=11B THEN LET IS="H 




950 


LET A*=": LET R=A: LET K-3 


ALT" 








955 


LET I-INT <R/ (16"K) ) 


1200 


RETURN 






960 


LET AS-AS+FN AS(I) 


1300 


REM #***HEX TO DEC 


*#** 




965 


LET R-R-(16"K)*I 


1305 


LET A=0 






970 


IF K=0 THEN RETURN 


1310 


LET AS-KS12 TO ) 






975 


LET K=K-l: GO TO 955 


1320 


FOR J=l TO 4 






97B 


REM 


1340 


LET A=A+(16" (4-J) )* 


N BIAS! 




979 


REM **# SUBROUTINE ** 


J) ) 








980 


IF A>32767 THEN GO TO 992 


1345 


NEXT J 






981 


LET BYTE-PEEK A 


1350 


RETURN 






983 


LET I=INT (BYTE/16) 


1500 


REM CHECK FOR SILLY 


ADDR. 




9S5 


LET CS=CS»FN ASH) 


1510 


LET K=2 






987 


LET C*=C**FN AS(BYTE-16*I) 


1530 


IF CODE KS1KX48 OR 


CODE KS 




990 


LET fl=A+l: RETURN 


(K)>57 THEN GO TO 50 






992 


PRINT AT 21,6; "ADDRESS EXCE 


1540 


IF K-LEN KS THEN GO TO 54 




ED MAXIMUN.": BEEP 3,50 


1550 


LET K-K+l! GO TD 15 






993 


PRINT AT 21, 6i " 


1600 


REM CHECK FOR SILLY 


ADDR. 






" : IF CGUNT-0 THEN G 


1610 


LET K=2 







OCTOBER /NOVEMBER 1: 
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1620 IF (CODE KSIK)>=4B AND CODE 
K*(K><«57> OR ICODE K«<K)>=65 A 
ND CODE K*(K)<=70) THEN GO TO 1 

1630 GO TO 50 

1635 IF K=LEN KS THEN GO TO 59 

16-50 LET K=K + 1: GO - TO 1620 

1999 REM 

2000 REM *** DATA **** 

2010 DATA "NOP","!.!) BC,*Mt","LD 
1BC] , A", "INC BC.'TNC B","DEC B" 
,"LD B,*t", "RLCA", "EX AF,A'F'","A 
DD HL.BC" 

2020 DATA "LD A,IBC)","DEC BC"," 
INC C","DEC C","LD C,**", "RRCA", " 
DJNZ tt',"LD DE,*ltt", "LD IDE], A"," 
INC DE" 

2030 DATA "INC D","DEC D","LD D, 
M","RLA","JR tt","ADD HI_,DE",°LD 
A, (DE) " , "DEC DE'.'IMC E", M DEC E" 
2010 DATA "LD E , « " , "RRA" , " JR NZ , 



2260 


DATA 


CAL 


L M,H#" 


"♦#* 


" t "t 




tt", "RST 0033" 










2270 


REM 












2271 


REM 


********* 








2300 


REM 












2199 


REM 


##*■ ED *** 








2 300 


DATA 


IN 


B, IC> ", 


OUT 


(C) 


fi- 


, "SBC HL.BC", 


LD IttH) 


BC", 


" NEC " , 


"RET 


N " , " I M 


, "LD I, A" , "I 


N C 


fe 


) ", "OUT <C 


,C 










2510 


DATA 


ADC HL.BC" 


"LD 


BC, 


## 




, "RET 


I" 


"", "LD R,A% 


"IN 


D, 


(C) " 


"OUT 


CI 


D", "SBC 


HL.DE" , 


LD 


(#* 


,BE" 












2520 


DATA 




" , "IM 1 


, "LI 


A, 




"IN E, (C) " 




T (C) ,E 


, "ADC H 


.D 


E","LD DE, 


tHt 










2530 


DATA 


IM 


2" , "LD A,R" , 


■IN 


H, 


'ml! 


"OUT 
tltt) ", 


C) 


H" , "SBC 


Ip'^ 




LD 


2540 


DATA 


IN 


L, fC) ", 


OUT 


(C) 


L" 


, "AD 


HL , HL " , 


LD HL, (Wtt) ", 






'■", "RLD", " 


N F , I C ) " , " 








2550 


DATA 


SBC HL.SP" 


"LD 


itttt 


.s 










C) " 


'OUT ( 


C) , A 


, "ADC 


HL 


SP", "LD 


SP, 


BUI 




2571 


REM 












2590 


DATA 










-DI 


2*00 


DATA 


"" 


"OUT I" 






PD 



', " JP 

H BC","ADD A,4t", ,, RST 0000", "RET 

Z*, "RET " 

2210 DATA "JP Z, «»" , " ", "CALL Z,H 

t*","CALL »t*","ADC A,tf","RST 0006 

","RET NC',"POP DE","JP NC.tttt" ," 

OUT (Ml , A" 

2220 DATA "CALL NC , HH " , "PUSH DE" 

, "SUB tt","RST 0010", "RET C","EXX 

","JP C,HW","IN A, ( H) " , "CALL C , tt 



2230 


DATA 


"SBC A,tt 


, 


RST 00 


8" 


RET 


, D , | .. 


=OP HL", ■ 


P 


PO, tttt" 


"E 


(SP) 


, HL " , 


CALL PO, 




, "PUSH 


HI. 


"AMI 


H " , ■ 


?ST 0020" 








221( 


DATA 


"RET PE" 




IP (HL) 




PE, 


*«", " 


EX DE.HL" 




:all PE 


tilt 




XOR 8 


, "RST 002S 


", "RET 





2620 
OTDR 
2699 



DATA "ADD i 



DATl 



IT 7, 

RES 0, ", ' 
"RES 3, ' , "RES • 
6, ", "RES ; 
DATA "SET 0, ' 
"SET 3, », "SE' 
6, ", "SET ; 



;' 


1000 LET Update=9500 


J 








1010 LET and- 9600 




2090 LET c=CODE A*-4B: IF nil OR 




1020 GO BUB 9000 




OI3 THEN 60 TO 2030 




! 


1030 




2100 IF P(cl=0 THEN PRINT BRIG 






1040 FOR n»l TO 13 




HT l; PAPER 7) INK 2iAT 18, Hi F 




1030 LET D(r>) =n 




LASH 11" CHEAT •; FOR n=I TO 230 




. 


1060 LET Dln+13l=n 




: NEXT n: PRINT AT IB, Hi" 




10*70 LET D(n+26)»B 




" : GO TO 2030 




10B0 LET DIn+39)-n 




2110 IF S(c>=0 AND top<33 THEN 




. 


1090 NEXT n 




PRINT AT 18,12) PAPER 2) INK 7i 




! !00 




BRIGHT 1| FLASH 1|" GO FISH "1 F 






I 1 10 FOR n = l TO 52 




OR n = l TD 250: NEXT n: PRINT AT 






1120 LET a=INT (RND*52+1> 
1130 LET b=INT (RND*32+1) 
1140 IF a=h THEN GO TO 1130 
1 150 LET c=D(a) 
I 1 A0 LET D (a>=D(b> 
1 170 LET Dlbl-c 




18, 12} ■ ■: GO TO 2500 
2120 IF 5(c) >0 THEN PRINT AT IS 

ASH 1J- GOOD FISHING ■! FOR n=l 

TO 250: NEXT nl PRINT AT lB,9j" 

■: LET -flag=l: LET 

Plc>=PCc>+S(c> T LET S(c)=0: LET 






' [90 




T(Cl=lI GO SUB Update: IF P 1 c ) =4 




1700 FOR n-1 TO 7 




THEN LET pb^pb+i: LET T(c)=0: 




; 


1710 LET a=D(n> 




GO SLIB Update: GO SUB end: IF pb 






1720 LET P(al=P(a) +1 
1730 LET b=D(n+7) 




=7 THEN GO TO 9700 

2130 IF flag=l THEN LET Mag=0: 






1740 LET S(b)=Slb)*l 




GO TO 2030 




1750 NEXT n 




2140 Gfi TO 3000 






1 Z60 




2500 LET d=D(topl: LET top=tcp+l 




}; 


1770 BORDER 5! PAPER 5: INK 0: 




: LET p(d)=P(d)+l: GO SUB Update 




CLS 




: IF P<d)=4 THEN LET pb=pb+l: L 




;' 


12B0 PRINT PAPER hi BRIGHT 1 ; AT 




ET T(d)=0: GO SUB Update: GO SUB 






, 1 2 i ■ F I SH ■ 




*nd: IF pb=7 THEN GO TO 9700 






1290 PRINT PAPER 2; BRIGHT li I 
IV 7;AT 3, Si" PLAYER 'ipbJAT 3,2 
("i " SPECTRUM ■ i 5b 

1300 PRINT PAPER li BRIGHT li I 
NK 7iAT S,3i- A234567B9" 




2510 IF c=d THEN PRINT AT IB, 9; 
PAPER 11 INK 7) BRIGHT li FLASH 

250: NEXT n: PRINT AT 18,9)" 
" : GO TD 2030 




. 






2520 PRINT AT lB,8i PAPER 7; FLA 




'.110 FOR n=9 TO 13 




SH li BRIGHT 1[- Ymi fished a ■ i 




■ '[■ _ 


1320 PRINT PAPER c; BRIGHT IJAT 




2530 IF d>l AND d<H THEN PRINT 




£•: 


n,3i ■ 




PAPER 7i FLASH li BRIGHT lid)" 
" : GO TO 2700 




.v . 


1330 NEXT n 




2540 IF d=l THEN PRINT PAPE 








R 7) FLASH li BRIGHT li'ACE " : 




i,; 


7000 REM PLAYER'S TURN 




GO TO 2700 




2010 




2550 IF d=ll THEN PRINT PAPE 






7020 GO SUB Update 




R ?\ FLASH li BRIGHT li'JACK " : 






2030 INPUT PAPER 0; INK 7; BRIG 




GO TO 2700 




HT lj "WHICH CARD ? "i LINE A* 




2560 IF d=12 THEN PRINT PAPE 






2040 IF A*tl»="T- THEN LET t=10 




R 7i FLASH 15 BRIGHT li'BUEEN ": 




'''•■'. 


: GO TO 2100 

2030 IF A*(I)="J" THEN LET c-11 




GO TD 2700 
2370 PRINT PAPER 7J FLASH 1) BR 




"■':'•'• 


: GO TO 2100 




IGHT li'KING ' 




2060 IF A*(l>="B" THEN I FT c = 12 




2700 FOR n=l TO 230: NF-X1 n : I'HI 






: GO Tn 7100 




NT AT 18, Bi ' 




jy 


7070 IF A»(1)="K" THEN LET c=13 








: GO TO 2100 

2000 IF A*I1)=*A* THEN LET L 1 




3000 RFM SPFCTRIIM'S TURN 
3010 


► 













SPECTRUM CAME 



3020 LET •-! 

3030 IF T(e)-1 AND Sle)>0 AND S( 
eK4 THEN LET +=e: GO TO 30A0 
3040 IF e<13 THEN LET e=e+I: GO 

TO 3030 
3050 LET f=INT (RND+131+l: IF El 
<1=0 OR SI* 1=4 THEN GO TO 3050 
3060 PRINT PAPER 21 INK 7| BRIG 
HT I| FLASH IJAT 21, 9f" HOW MANY 

3070 IF +=1 THEN PRINT PAPER 
7; INK 7i BRIGHT 1; FLASH 15 "AC 
FS ■ : GO TO 3200 

30B0 IF f=ll THEN PRINT PAPER 
21 INK 7; BRIGHT 1! FLASH lJ'JA 
CKS ■ : GO TO 3200 
.(090 IF * = 12 THEN PRINT PAPER 
2i INK 7i BRIGHT I; FLASH H'HUE 
FNS "I GO TO 3200 

3100 IF f = 13 THEN PRINT PAPER 
7t INK 7[ BRIGHT It FLASH li'KIN 
68 ■ : GO TO 3200 
(110 PRINT PAPER 2i INK 7i BRIG 



HT 1 

.1200 INPUT 



II 



LET c=CODE A*-48: : 
13 THEN GO TO 3200 
:0 PRINT AT 21, 9f ■ 



CHEAT 



NEXT : 



3730 IF PI*1 <>c THEN 
B. Hi BRIGHT l; FLASH 
•: FOR n=l TD 

AT IB, Hi- ■: GO TO 3060 
3235 IF c=0 AND tc.p<53 THEN GD 
TO 3260 

3740 LET S{*)=St*)+PIf ) : LET PI* 
1-0: LET Tt*)=0: LET *Iag=l: GO 
'lUB Update: IF S(*l-4 THEN LET 
sb=sb+l: GO SUB Update: GO SUB e 
nil: IF sb=7 THEN GO TO 9700 
3230 IF +lag=I THEN LET *lag=0: 

GO TD 3020 
3255 GO TO 2000 

3260 LET c=D(top): LET top=toptl 
3270 LET 5(cl=S(cHK GO SUB Upd 
ate: IF Slc)=4 THEN LET sb=sb+l 
: GO SUB Update: GO SUB end: IF. 
-.b=7 THEN GO TO 9700 
3275 IF c<>* THEN GO TO 2000 
3280 PRINT PAPER li INK 7! BRIG 
HT li FLASH 1[AT 18,9!' I FISHED 

A ■! 
3290 IF c-1 THFN PRINT PAPER 
l; INK 7[ BRlr.HT li FLASH lt-ACE 

t GO TO 3300 
3300 IF c = H THEN PRINT PAPI-R 



If INK 7i BRIGHT li FLASH 1 i • 1A 
CK ■ : GO TO 3300 
3310 IF C=I2 THEN PRINT PAPER 

If INK 7i BRIGHT li FLASH li'fjll 
EEN " i GO TO 3500 
3320 IF c = 13 THEN PRINT PACI R 

li INK 7i BRIGHT l; FLASH 1 i *KI 
NG ■ : GO TO 3500 
3330 PRINT PAPER 1J INK 7\ BRIP 
HT J J FLASH ljc; ■ ■ 
3500 FOR n=l TO 250: NEXT n: PPI 
NT AT 1 S , 9 i " • : 



GO TD 


3020 






9000 R 




SET 


UP 




9010 










9020 D 


M 


Ptl3> 


REM 


Player 


9030 D 


M 


Sf 131 


REM 


Spectr 


9040 D 


M 


DI32) 


REM 


Deck 


9030 D 


M 


T(13) 


REM 


Spec's 


9060 D 


M 


A* (21 


REM 


Reques 



9080 LET top=13: LET h 
"090 LET pb=0 T LET 
"100 POKE 23658, B 



9520 PRINT PAPER < 



9540 RETURN 

9550 

9600 REM CHECK FOR FINISH 

9610 

9620 LET checkl=0: LET checl.2-0 

9630 FOR 1=1 TO 13 

9640 IF S(1)>0 AND S(l)<4 THFN 

LET checkl=l 

9650 IF P(!)>0 AND PUX4 THIN 

LET Check2=l 

9660 NEXT 1 

9670 IF checkl>0 AND check2>0 

THEN RETURN 
9680 

9700 REM END OF GAME 
9710 

9770 INPUT PAPER 0t INK 71 Mil 
HT U'ANIltHFR GAME ?"1 LINE A* 

9730 IF A*U)»'V THFN Oil SUB ' 

000: GO TO 1040 

9740 STOP 



I SPECTRUM EDUCATIONAL! 



A great way of testing knowledge on a 
variety of topics from Alan Pratt Of 
Chelmsford. ]FS 




2 

x 



tions from a tumbled list of those empty but later you may v 

answers, replace a sal or edit si 

When typing in Pie progr.-im guustions and answers, 

the graphics characters used tor possible bv selecting hs&: 

Tophallnlbothfaces'AB'.bot reeling mistakes or chi 

'CD'.bottomhalfofthesadface Having selected whic 



■ pressing key 3'. The Spec- 
record. Record the program 
il then I. GAD it buck in i.sller 









inng questions i 



sing si-l ll.e END mulin,- 



■ SPECTRUM EDUCATIONALI 



contains the eight ques 

ong. 



Returns you to LINE 430 



eight spaces and i 






i 1 1 r i J i I v .irul is Mil 10 : ii iiiiv 'jf Ihe t ( i 




go to LINE 790. 

By selecting 'r' this line bIIowe 



90 to 820 Roulir 






30 to 850 As LIMES 6 ?0 !■..■ '390. 

Subroutine inr ..muring; 
Subroutine lor entcrinq e 



900 tc 
910 

1000 


920 
Q1050 


End' 

set fill 
Data! 


rogram section. 

1 the :-ets have tx-fnchan 

r i"^!. nq and s art faces 


1080 


□ 1090 


Subro 


tine for setting up the grap 


1100 


o 1200 


Subro 


tine which draws lines on 


1210 


o 1240 


Subro 




1300 
2000 
2200 


o 1350 
o2040 
o2230 


Subro 
Subrot 
Subroi. 


irl^ !.:■ |jl-.:v lit: ;i - .ippv tu 




*Under 


In 


ed ch«r'jcttrt» 




t» 


-ed 


in 




*GRAPH 


C8 


mo 


e. 


* 













put the response in '( 
Checks if your choice 


r. 


by numba 


return to LINE 440. 
Highlights your quest 




by numbe 



■ Question* and An 



20 REM 

50 DIM 1*15,32): DIM q*(5,B,2S 
DIM a*IS, 8, 13): SIM p»<B): DI 
t*(3) : DIM • •(!) 



PAPER 71 INK 0\ C 
I RESTORE 1000! GO SUB 1000: 



■ SPECTRUM EDUCATIONAL! 




1 TO 13 STEP 6 
130 FOR *=1 TD 29 STEP 28 
110 PRINT AT y,xj INK 4|'B! 
y+l.x! "GB'IAT y+3,*l INK 2 



AT a, 7] "Select 



130 


NEXT 




160 


NEXT 




17B 


PRINT 


r 


T 20 


ii TD 




291 ■ 






180 


PRINT 


AT 


pt.o 






190 


PRINT 


AT 






200 


PRINT 


AT 






210 


PRINT 


AT 


220 


PRINT 


AT 



13,4} '2 = Enter ne 

13,41 "3 = End" 

19, 5J BRIGHT l;'Pr 

230 IF INKEY*="1- THEN GO TO 2 
80 

240 IF INKEV*="2- THEN GD TO 6 
00 

230 IF INKEY*=-3" THEN GD TO 9 
00 

260 GO TO 220 

280 REM Answer the questions 

290 CLS : INPUT ■■: PRINT AT 0, 
71 BRIGHT II 'Answer the question 



T 0,01 " 
Enter the set you require ?■ 

320 GO SUB 1210: LET n=i: IF n> 
5 THEN GO TO 320 
330 IF t*(n)="0* THEN PRINT AT 
6,Bl FLASH 11 "That set is empty 

■: input ■■: pause 130: go to 90 

340 CLS : LET p*=-12345678" 

330 FOR k-1 TO 8 

360 LET r=INT [RND*S)+1: IF p* ( 
rl<>* " THEN GD TO 380 

370 GO TO 360 

3B0 IF x=r THEN GO TO 360 

390 LET c*tx)=p*(r) : LET p*<r)= 

400 GO SUB 1100! PRINT INK lift 
T 0,01 l*ln>: FOR x=l TO B 

410 PRINT AT 2*K+2,0i*SAT 2*x»2 
,2iq*(n,xMl TO 14I1AT 2*x+3,2iq 



nswei-ed that': BEEP 1,-12: 
PAUSE 50: GO TO 440 

70 PRINT BRIGHT HAT 2*q*2,2; 
(n,q)(l TO 1411AT 2«q+3, 21 q* < n 



480 INPUT 



PAUSE 30: PRINT ■- 





490 GO SUB 1210: LET a=i 




300 PRINT AT 2#a+2,31; FLASH li 




a: PAUSE 30 




310 IF UAL c*ta)=q THEN PRINT 




H01AT 0,01'You got it right 




I INK 41 "R6 




52": GO TO 530 




320 PRINT H01AT 0,0i"No that is 




wrong 'I INK 2}"B§ 




EF-: GO SUB 




2200! PRINT AT 2*a*2,31ia: GO TO 




330 PRINT AT 2*a+2, 31 1 a J AT 2*a+ 




2,171 BRIGHT l|a*<n,VAL c*Ia>): 




GO SUB 2000 




540 PRINT AT 2*q+2, 2; q* 1 n , q) 1 1 




TO 14) [AT 2*q*3,2iq*ln,q> (13 TO 




28>;AT 2*at2, 17!a*(n,UAL c*(a!) 




350 LET p*(q>=" V LET t=t+l: I 




F t=B THEN GO TO 370 




560 GO TO 440 




370 INPUT ■■: PRINT W01AT 0,01 




BRIGHT 11 -Press any key to cnnti 




380 PAUSE 




590 GO TO 90 




600 REM Enter new questions 




610 CLS : PRINT AT 0,7; BRIGHT 




U -Enter new questions 1 




620 PRINT AT 2,0; "This program 




will hold up to 5 sets o* quest 








dentified by a 




623 PRINT AT 5,01 "number 1 to 5 








ch sets are ful 1 and al lows yo 




u to -fill or change any se 


t with new questions and 


■ 


630 60 SUB 1300: PRINT AT 19,31 
"Press 6 to leave this routine" 



■SPECTRUM EDUCATIONAL! 



640 INPUT ' 
Which Set di 

650 GO SUB 
6 THEN GO TO 630 

660 INPUT 
90 

670 IF t* 



LET n=i: IF i 
n=6 THEN GO 
THEN GO TO : 



THEN GO TO 790 
(• THEN GO TO 90 
SUB 1100! PRINT 



720 FOR x=l to b: 
O SUB 890: NEXT x 
730 INPUT -Which i 



740 LET x = INT x: IF x<l OR 

THEN GO TO 730 
750 IF x=9 THEN GO TO 90 
760 PRINT AT 2*X+2,0J BRIGHT 1; 

Xi GO SUB 860 
770 PRINT AT 2*x+2,31; BRIGHT 1 

:i: go sub 870 
7S0 LET new-11 GO TO 730 
790 CLS : INPUT -Title (max 32 



INE 



800 GO SUB 




910 FOR x=l TO 8: GO SUB 860 
O SUB 870: NEXT x 
820 LET t*ln)="l": LET new=l 
830 INPUT ■■: PRINT tt0|AT 



840 PAUSE 
830 GO TO 90 
860 INPUT 'Question In 

80: RETURN 

870 INPUT -Answer (ma> 
rs) 7 -, LINE atln,xl: GO SUB 89 
0: RETURN 

880 PRINT AT 2*x+2,0;xjAT 2*x+2 
,2Jq*rn,x)(I TO 14>;AT 2*x+3,2iq 
*(n,x)(15 TO 28): RETURN 

890 PRINT AT 2*x+2, 17ia*(n,x) !A 
T 2*x+2,31Jx: RETURN 

900 REM End o* program 

910 IF new THEN SAVE -quiz" LI 

E 70: PAUSE 30 

920 CLS : STOP 

TA "a- ,7, 31,48,96,76,204, 
192,193 




030 DATA ' 
,248,224 
040 DATA ' 
48,31,7 
050 DATA ' 
,248,224 
060 FOR X- 



224,248,12,6,50,51 
192,216,79,99, 

192,195,71,108 
3, 195,226,54, 1 
READ e* 



,1 



00 REM Lines 

02 PLOT 0, 164 

04 PLOT 0, 163 

10 PLOT 0,148 

20 PLOT 0, 147 

30 PLOT 0, ! 

5 PLOT 0,: 

30 PLOT 131 

68 PLOT 132 

63 PLOT 255 

70 PLOT 

B0 PLOT 244 



DRAW 255,0 
DRAW 235,0 



DRAW 235,0 
DRAW 255,0 
: DRAW 0,15 

l: DRAW 0,1 
48! DRAW i 



1 1 : DRAW 1 
IK 1)AT 2,< 
ANSWERS' 



iNS-JAT 2,20! ' 
200 RETURN 
210 LET e*=INKEY* 
220 LET >=CODE e*-4B 
230 IF i>0 AND i<9 THEN 



240 GO TO 1210 

300 REM State of the data 

310 PRINT AT 11, 8i BRIGHT IS" S 
ET Nn. STATE ■ 

320 FOR 1=1 TO 5 

330 PRINT AT i+12,ll|iIAT i+12, 

91 ("FULL" AND ISli 1 =■ 1 ■ ) + ( 'EMPT 

■ AND t*<i )=-0-l 

340 NEXT i 

330 RETURN 
2000 REM Got it right 
2010 LET m=0.07 

2020 BEEP 3*w,12: BEEP h,16: BEE 
P 2*w,14: BEEP w,17: BEEP 3*», 16 
: BEEP 5*h,12 

2040 RETURN 

2200 REM Got It urn rig 

2210 LET w=0. 1 

2220 BEEP I.5*«,7: BEEP h,4: BEE 

P 1.3*w,0: BEEP w,4! BEEP .8*w,2 

: BEEP 2*w,2 

2230 RETURN 






PROBLEM PACE 



Problem Page 




string, to allowEZ 
e no trouble with BASIC My second que; 



e.g. INK 5: PAPFR 7. you !/. 
PRINT or the drawing c 



tou ID use Can V OL1 he| ? 






Suisuri City, CA. USA. 



ting the eHects you hope for. 

Using the INK and PAPER 
commands in a PRINT state- 
change in colour. The new coi- 
ticular PRINT is being carried 







brings me oto your second 




vary in price; one offering good 


that one way to check if a key is 




routine to get an idea of how it's 




pressedis to use a ROM routine; 


subroutine useful tor shortening 


































ZO FOR i -22528 TO 23295 


my reply helps both of you. 




100 LETiS^aSU) 


30 POKE 1, a 




110 FORi- LENzS to 2 STEP 


40 NEXTi 








50 GOTO 10 










TS-1000 


numberolCP/comparelinstruc- 


150 












Dear David, 




zS-1) 


63. although larger numbers 




"'""■ 


140 NEXTi 


also produce Interesting effects. 



■SPECTRUM ARCADE GAMEM 



Attack of the 
Mutant wallies! ~ 

Structun 

Ever wondered what it's like to be a as is.?. 
teacher? A. Hasiam gives us a taste of 
life in a Walsall school! 



70 to 490 ere the li 
495 to a 20 are the e< 



s B30 to 1070 ai 



Teachers ate fighting (or a pgy 






exactly helpful. The fi 










chance to try out a typical day in 


keys 5 and 8 to mo« 




rrght, get into a posit 


















to helpl Bti! of course you have 


school Burk. He im 



rii,-j..;i :li !; ;v.ji B! rW,-.iil¥ .vi„ .; 

ilraiglnlii-.S.VOI.IHilvciolnrl 

3 and get across to'or.n:.h:l,. 



; UDGs. These ai 

io. Mr. Chips, tak 
d and NUT insurant 



.n8b. 






r «*«" 



««W_, H-(3^ 



iiqwii«iif iswissnf sswiissiaf iea'seass iif, «sb»s = hi 

qh, j m™ jiii'jisiHr! phspift i|"ijtyjsS [ffkpi 




■(GRAPHICS mndo. 



3 RESTORE 9C0I?: FOR i = I41 TO 
111! FOR n=0 TO 7: REAE a: POKE 
USR CHRl i+n,a: NEXT n: NEXT 1 

5 BRIGHT 1: PAPER 3\ INK 7: B 
ORDER Oi CLS 

£ LET hi=0: LET a*="... u 



F 


THE MUTANT U A 


L 


I E S 




TBuide /aursai.l past t 




DIOTS' , 'BURKS' , and 




EB , HORRIBLE , SUPER UALLY 



20 LET aV=o9^ Yt 

lit get out of the Formruom , 

doun the corridor , And get 
iugh the Entrance Hall to gel 

the Headmaster's study to tt 

33 LET o*=o«M ■ 



SPECTRUM ARCADE GAME* 






it 



35 PRINT AT 0,31 INK 21 PAPER 

7i "geesseseBsesBBeeessaeBBSBeeBB 

BBB'iAT 2,01 INK 2| PAPER 71*806 
BBBBBBBBBBBBBBBBBBBBBBBBeBBBB" 
13 FOR i = l TO LEN o*-31! PRIHT 
AT 1,01 INK li PAPER 6!SO*fi TO 
i+315: FDR 11=0 TO 10! NEXT nl B 
EEP .001,-10: NEXT i 

30 PRINT AT 1,0| INK 51 PAPER 



B IF INKEYW= 


■ THEN 


GO TO 60 


LET o*=" 


Press 


any lie, t 


tart 




•ICIOT' 



:INT AT 19,i 



90 FOR i = l TO LEN dS-31: PRINT 
AT 1,01 INK 5) PAPER l i o* I i TO 
1+31!: FOR n=0 TO 10: NEXT n : BE 
EP .001,10: NEXT i 

95 RESTORE 90001 FOR i = H1 TO 
161: FOR n=0 TO 7: READ a! POKE 
USR CHR* i+n,a: NEXT n: NEXT i 
9^ CLS 
100 PLOT 0,0: DRAM 255,3: DRA'J 
0,175: DRAW -255,0: DRAU 0,-175 
110 PRINT AT 0,121 PAPER 2i INK 
7| "FGRMROOM" 

120 PRINT AT 17,11 INK 6|'BC"i 
FLASH II INK 21 PAPER 7I U CC"1 FL 
ASH 0( INK 61 PAPER 01 '5Q £G 5E 

BC BC BC gc BC BC" 

130 PRINT AT lB.lt INK 6;""""J"t 
FLASH 11 INK 21 PAPER 71 "EC" I FL 
ASH 0! INK 61 PAPER 0)" > ffj H *ffJ 



110 PRINT AT l,31i INK 5l"B n iAT 

2,3i**E* 

15!? PRINT AT 0,21 INK 71 PAPER 
01 ■ HIJKLt! - 

151 PRINT AT 21,11 INK 6| PAPER 

ll'Tlra* : 100. Hi : . By : 
■I** 

132 PRINT AT 21,181 INK 6| PAPE 
R Uhi 

133 LET x=29: LET a=2: LET b = l: 
LET t=100: LET 2=10: LET ==0 
180 PRINT AT 21,1| INK 6; PAPER 



330 


IF RNE?.5 THEN LET b=bH 


210 


IF RND<.3 THEN LET fc-b-i 


230 


IF RNE>.3 T 


^N LET a=ail 


263 


IF RND<.5 T 


«N LET a=a-l 








270 


IF a'2 THEr 


LET s=a)2 


230 


IF aM3 THE 


1 LET 3=a-2 


2S1 


_ET t=t-l 




2Q2 


IF t'0 THEf 


GO TO 0000 


293 


IF t<2 THEr 


LET b=b-»2 


291 


IF b>29 THE 


■1 LET b=b-2 


292 


PRINT AT 3, 


:l INK 3; "US'IAT 


a-H 


t i INK 3!"PO" 


293 


GO TO 180 




300 


IF 7 = 1 THEt 


GO TO 320 


303 


IF »=7 DR x 


=10 OR x=13 OR x 


=16 OR M=19 OR X 


=22 OR x=2S OR x 


=28 THEN GO TO 


315 


310 


GO TO 225 




313 


LET C=1B: L 


ET d = « 


320 


LET 1=1: PP 




IF c 


a AND d=b C 


R c = a+l AND d=b 


OR c 


a AND l=h>l 


OR caU AND £•* 


til THEN GO TO 


<KZB 


330 


LET c=c-l! 


PRINT AT c, 11 IN 


K 31 


G": IF c=2 


THEN LET 1*12: 


PRINT AT 1, di * 


1 AT 2 , d 1 " " 


310 


GO TO 227 




100 


LET === + t 




43 3 


TOR i=b TO 


3 STEP -1 



OCTOBER/NOVEMBER 1 



■SPECTRUM ARCADE CAMEJ 



110 PRINT AT a, 11 FLASH 1! PAPE 
R 71 INK 3l'Hg*IAT aM , 1 I FLASH 
1| INK 7| INK 31 ■Efi" 

115 BEEP .25,1! PRINT AT »,i|" 



■I AT i 



.11" 



120 NEXT 

130 FDR »=a TO IT 1 : PRINT AT e,3 
I FLASH II PAPER 7; INK 3l"tjg n ;A 
T •■»1,3I"P0-: BEEP .25,»: PRINT 
AT *,3T* "IAT •41,31" ": NEXT 

440 FOR i-x TO 3 STEP -1 

150 PRINT AT 19, if INK 21 "63" I A 
T ZP, 1 | INK 21 "iy- 

16.3 BEEP .02,20: PRINT AT 19, il 
"SAT 20, 1! " 

470 NEXT l 

180 FOR i=17 TO 1 STEP -1: PRIM 
T AT i,3J INK 2|-B3 P |AT lU.Ii'I 
U": BEEP .02,21: PRINT AT i,3i" 

" J AT 1(1,3] ■ ': NEXT 1 

493 FOR i'3 TO 30: PRINT AT 1 , 1 
i INK 21"B*'|AT 2,i]"TU": BEEP . 
02,22: PRINT AT 1,11* " 1 AT 2, H 
" : NEXT 1 

495 RESTORE 9100! FOR 1=141 TO 
160: FOR n=2 TO 7: REAB a: POKE 
USR CHR* it-ri, a: NEXT n: NEXT 1 

500 ::ls 

510 LET o«=- 

The BURK la lurlii 



the 



rido 



qaaaaqaqq- 
530 FOR 1=1 TO LEN d*-31: PRINT 
AT 1,.0| PAPER 1| INK SiDttl TO 

1*31): FOR n-0 TO 5: NEXT rt" BEE 

P .001,40: NEXT i 
535 FOR 1-1 TO 500: NEXT 1 
510 CLS I PLOT 0,0! DRAW 255,0: 
DRAAl 0,175: DRAW -255,0: DRAM 



550 PR 
>K- I AT 
INK 21 " 



PAPER 71 " 



INK 6! PAPER 



'DOR "1ST 0. 
a=2: LET I 



IT AT 21 ,81 PAPER : 
NKEY«="0" THEN Gl 



520 PRINT AT 0,01 INK 21 

7; " asHssasBBsagaaaasssMS! 

S55" i INK 5| PAPER II ■ 



® 



T 1 



£05 


IF z 


=1 THEN GO TO 710 


610 


IF RNDJ.5 THEN LET a= 


628 


IF R 


ID<.5 THEN LET a= 


630 


IF FtNO.S THEN LET b=l 


640 


IF RND<.5 THEN LET b = 


650 


IF a 


2 THEN LET a=a*l 


660 


IF a 


30 THEN LET a=a- 


670 


IF b 


2 THEN LET b=b*l 


675 


LET 


=t-l: IF t=0 THEN 


TO B000 




680 


IF b 


15 THEN LET b=b- 


690 


PRIN 


AT a.bi INK 31 '9 


T K* 
APER 


a"' 


NK 71 PAPER 2! " QE 


£91 


FOR 


=1 TO 10: NEXT i: 


.09 


,40 




695 


90 T 


3 590 



■SPECTRUM ARCADE CAMEJ 



□R c = a AND b=12 OR C«*+I AND b = 
12 OR c=a AMS b = ll OR c=3*l AMD 

fc = ll THEN GO TO 750 



730 GO TO 610 

733 FOR i=b TO 5 STEP -1! PRINT 

AT », 1| INK 7| FLASH 1! PAPER 3 

I-ggc-iflT a+l,i| INK 71 PAPER 21 

■DEF": BEEP .23,1: PRINT AT a,ii 

"IAT 9*1, i| ' ": NEXT t 

753 LET s = s + t 

76)3 FOR i=a TO 19: PRINT AT 1,3 
I INK 7r FLASH II PAPER 3) "BBS" I 
AT 1+1,31 INK 7| PAPER 2i 'DEE" : 
BEEP .23, l: PRINT AT 1,51" " 1 A 
T i+l,5| ■ ■: NEXT 1 

770 FOR 1=5 TO 10: PRINT AT 19, 
H INK 71 PAPER 31 FLASH U'BBS" 
IAT 20,11 INK 71 PAPER Z|*BSE*i 
BEEP .25, i! PRINT AT 19, i! - " i 
AT 20, II ■ "1 NEXT i 

7B0 FOR 1=1 TO 16: PRINT AT 1 , 1 
01 PAPER 01 FLASH .01" "! N 
EXT 1 

790 FOR 1=13 TO 3 STEP -11 PRIM 
T AT 19,11 INK 2f"Bfi*IAT 20,11 I 
NK 2l'TO": BEEP .012,20: PRINT A 
T 19, 11* "IAT 20,11- ': NEXT i 
800 FOR 1=19 TO 10 STEP -ll PRI 
NT AT 1,3! INK Z!"B3"IAT 1*1,31 

ink 2i"iy: beep .012,21; print 

AT 1,3-1* "IAT 1*1,31" ': NEXT 

810 FOR 1»3 TO 23J PRINT AT 10,. 
11 INK 2I'E3"IAT 11, it INK 21"TU 
■: BEEP ,012,221 PRINT AT 10, if 
■IAT 11, l|" "! NEXT i 

820 FOR 1=10 TO STEP -II PRIM 
T AT 1,251 INK 21'BS'IAT i+1,25! 

INK Z1*XU a : BEEP .012,23! PRINT 

AT 1,251" "IAT 1+1,231" "1 ME 
XT 1 

830 RESTORE 9200: FOR 1=144 TO 
160: FOR n=0 TO 7: READ a: POKE 
USR CHRS i+n,a! NEXT n! NEXT i 

B40 CL5 : PRINT AT 0,01 PAPER 7 
1 INK 21 ■e£E£ie.EEEE£CEeeECCCEeEF 
eeceeeEEE" ; AT 2,01 INK 2| PAPER 
7l"EEEEEEEEEEEeEECCEEE-:EEEeEEECE 



85.0 



cher ulll suspend all the dally 1 

SM ! " 

B60 FDR 1 = 1 TO LEN o*-31 i PRINT 
AT 1,01 PAPER 11 INK SlofJCl TO 

i+31): BEEP .001,40: FOR j =0 TO 

5: NEXT j : NEXT 1 
870 FOR 1-1 TO 300! NEXT i 
880 CLS : PLOT 0,0: DRAW 235,0: 
DRAU 0,173: DRAW -255,0: DRAIJ 

,-175: PRINT AT 0,91 INK 7! PAPE 

R 21-ENTRANCE HALL . " 1 AT 3,21 PAP 

ER 01 " 
890 PRINT AT 21,11 INK 61 PAPER 



6 1 PAPER 11 " 



e : 50. HI : 
: "la* 

900 PRINT J 



tst 



71 INK 61 -CO-" 
IAT 11,29) INK 41* "i INK 3i"SB' 
IAT 12,291 INK 6I"fl"l INK 3I"CB' 
IAT 13,29! INK 61 " StU" 
910 LET aW'I yK L I J £|S U 
I JE t jJK t gfi £ l sJB E J I 

L J L JK JLK CJ K=LI JKLJI" 
913 LET ymSi LET x=2: PRINT I 

20,101 INK 3i"«N": LET t-50 
920 FOR 1=1 TO LEN o*-28: PR 
AT 11,1! INK 7| PAPER 0;o*(i 
, i2S' : BEEP .001 ,40 
930 PRINT AT y,xi" "IAT >*1 



940 LET y=y+(INKEY»="6- AND > '< 1 
)-tINKEY»-"7" AND y>2! 

943 LET t=t-l: IF t=0 THEN GO 



INK 61 PAPER 



If 



AND : 



945 LET x=m (INKEYS="8" 
5»-(INKEY*'--5" AND x>Zf 

946 IF SCREEN* <y,x!<!" " AND S 
CREEN* (y+l,Xl<>* " AtlD SCREEN* 

!y,x*llt>" " AND SCREENS </«l,HI 
if (J" " THEN GO TO 7990 

930 PRINT AT >,x! INK 2|"R5"iAT 

J'+I ,ii -Ty- 

960 NEXT 1 

970 GO TO 920 
1003 FOR 1=1 TO 6: BEEP .01,20: 
BEEP .01,21! BEEP .01,22: BEEP . 
01,23! BEEP .01,22! BEEP .01,21: 



ich the DALLY 



■SPECTRUM ARCADE CAMEg 



FOR i=3 TO 33: PRIMT I 



12, 21: PRIN 


AT 5,li' -I 


■ : NEXT 




030 FOR 1=5 


TO 10: PRINT 


1 IMK 21 "ES 


IftT i+l,30J"T 


P .012,22: 


RINT AT i,30| 


1 J 1,301 ■ 


: NEXT i 


010 FOR 1=1 


TO 50: NEXT i 



1050 FOR 1=10 TO 5 STEP -1: PRIM 
T AT 1,301 INK Z|"ES"lfiT it 1,7,0; 
■TU-tAT 1*2,331 I UK 31 "BE* I AT it 
3,30i I UK 31-CD": BEEP .312,23: 
PRINT AT l,30t" "IAT 1+1,301" 
-|AT i+2,301" "tAT 1+3,301" "I 

NEXT 1 
1063 FOR 1=30 TO 3 STEP - 
T AT 5, 11 INK 2i "PO- ;AT i 
IAT T-, i J INK 31 ''SB* TAT S, 
3I-CD-: BEEP .312,21: PRII 



■|AT i 



"(AT : 



=5 TO STEP 



AT i,3( " "! AT 1+1 
Z,3i " -IAT 1+3,3! " 
1380 RESTORE 9073: 
151! FOR n=0 TO 7: READ a: 
USR CHR* l+n,a: NEXT n: HE! 
1093 RESTORE 9130: FOR I 
157! FOR n=0 TO 7: READ a: 
USR CHR« 1+n, a: NEXT hi: N; 
1130 RESTORE 9300: FOR 1 *- 
160: FOR n-0 TO 7: READ a 
USR CHR* i+n,a: NEXT .i: NEXT 1 
1101 CLS : PRIIIT AT 21,7! PAPER 
2! INK 7! "HEADMASTER'S STUDY." 



8 TO 



32 TO 
POKE 
XT i 
5B TO 



.132 1 



^PER 



1133 FOR 1=1 TO 133: NEXT 1 
1110 FOR l=l TO 15: PRINT AT 1,1 
01 INK 7| "H" I AT i + 1,10! IMK 7i"P 
S*: FOR-n«0 TO 10; NEXT n: PRIMT 
AT 1+1,101" -IAT 1,10!" "! BEE 
P .009, 1 : NEXT 1 
1150 BEEP 1, -10 

1160 FOR i=l TO 15: PRINT AT i,l 
51 INK 7| , Q"|AT 1+1,15) INK 7|"P 
S": FOR 11=3 TO 10: NEXT n : PRINT 



BEEP .339, 1 
1173 BEEP 1 
1180 FOR i= 



233 RESTORE 9103: FOR 



1201 


LET c = l 


1203 


FOR 1=0 TO 6 


1213 


PRINT INK c; ■■■■ l— | 


r^ j^% ^^ »•-■■ 


1223 


PRINT INK c+ll-IBI |— 


1 


i ii ii ir- 


1233 


PRINT INK C + 2J""""" ■■■■ 






1213 


LET c=c+3: IF c>7 THEN 


c-I 




1250 


NEXT i 


1260 


FOR 1=1 TO 100: NEXT i 


1270 


RESTORE 9003: FOR n=3 T 




' a: POKE USR CHR* 111 Hi 


HEXT 


n: HEXT 1 


1275 


CLS 


1280 


GO TO S320 


7909 


STOP 


■"993 


IF x=10 AND y=19 OR x=9 


y=19 THEN GO TO 1000 


3033 


FOR 1=21 TO STEP -l: 


T AT 


1 ,3! PAPER 0! ■ 




■: BEEP . 


0005 


RESTORE 9.000: FOR n=3 T 


REAP a: POKE USR CHR* 111 «B 


NEXT 


n: NEXT 1 


8013 


BEEP 1,3: BEEP 1,5: BEE 







EHD IS 


itt * COPP1DGP 



rn 



■SPECTRUM ARCADE GAMER- 



3020 PRINT AT 0,0! INK 3! PAPER 
71 -Score : "|5|TAB 121". Hi : "! 
hi) TAB 23) m .By : "la* 
B030 IF 3>hi THEN 60 TO 8100 
0040 PRINT AT 2,0! INK 61 PAPER 



"Uhfi 



didn 



804S FOR i = l TO 300; NEXT i 
8030 PRINT AT 21,0! I UK 2j PAPER 
71 -eaPRESS ANY KEY TO PLAY AGAI 

H.BB" 

8060 IF INKEYS="" THEM GO TO 30 
8065 CLS 



mu=t try 



Hud 



8073 PRINT AT 0,01 INK 21 PAPER 

7i "eBaB9BBBBaaBaseBaaaBBB9BBB9eB 

BBS" J AT 2,01 INK 21 PAPER 7["8aB 

BBaaaBBBaaBBaaaBBaaaBaaeBaaaB" 

3080 GO TO 90 

3100 PRINT AT 2,01 PAPER 7J INK 

li" YOU HAVE THE HIGH-SCORE! 



SE ENTER YOUR 
ax. 3 letters! 
8120 IF LEW 3* 

8122 LET hi== 

8123 PRINT AT ! 
7|"Bcore : "la 
hilTAB 231 • .By 
B130 GO TO 801i 
90013 DATA 192, 



255,255 

9013 DATA 1 

,243,227,227,2' 

,123,15 

9016 DATA 195, 

5, 195 

9030 DATA 16,3 

9010 DATA 255, 

10,40 

9050 DATA 232, 



ER 21 INK 7) "PLEA 

NITIALS <m 

"1 LINE a* 
3 THEN GO TO 31 



60,24,24,60, 19 
6,239,91,54,28 
130, 124,68,63, 
133,68,72,30,9 



B, 128,2,3,7 
63,55 

240,3, 133,. 
1,33,40,47 
0,244,244,: 



0, 129,90, 133,255,36 
4,80, 144,240, 
9110 DATA 255 
1,233 
,233,255,255 
,255,255 

9120 DATA 192,48,12,3 
2 

195,60,: 



32,32,3,0 

9,9,255, 
92,32, 14 



DATA I 



9150 DATA 15,63, 

255,233,240,252, 

235,255 

9160 DATA 28,2 

,B7,84,S4, US, 

3,85, 117,117,8 

6,72,68,80,0,3 



; ,24, 60,60, 24,! 



234,254,233,233, 



9170 DATA 28,23, 

35,239,243,8, 10 
47, 175,47,47,47 
244,244,244,244 
9210 DATA 192,4i 



93,73,62,9,20,34 

166,233, 102,96, 1 

, 151, 102,6, 130,2 

47,39, 16, 13,245, 

228,8,240 

, 12,3,3, 12,48, 19 



9220 DATS 13,63,127,127,255,255, 

235,235,233,255,255,235, 127, 127, 

63, 13 

923.0 DATA 192,240,248,252,255,25 

5,255,235 

9240 DATA 4,6,31,60,60,249,96,32 

,0,24,60, 102,102,60,24,0,0,3,28, 

28,62,62,28,0 

9250 DATA 9,28,38,119,46,28,3,0 

9260 DATA 99,111,159,191,129,255 

,255,253, 192, 240, 24 B, 232, 128,255 

,255,253 

9270 DATA 253,233,255,255,252,24 

8,240, 192,0,7, 67,134,76,39, 19,9, 

32, 192, 128,64,64,64, 123,0 

9300 DATA 0,127,130,66,65,34,68, 

133,65, 130, 130, 129, 128, 123,134, 1 

21,0,0,211,47, 1,66, 180,8 

94.0.0 DATA 1,20,0.5,20,0.5,20,1,2 

0, 1,24, 1,20,1,24,2,27 



ZX81 CAME 



Twenty Ones (or. Dicey- 



DlCdlf) Timothy 

■*"**»' Simpson 

lives in Bradford and 

has sent this infuriating 

game to share his 

frustration around. 



IB PRINT AT 0,5; "**«#DICEY*DIC 
EY****" 

11 PRINT AT 3,0;"THIS GAME IS 
SIMILAR TO PONTOON. DICEY DICEY I 
S PLAYED WITH FOUR DICE." 

13 PRINT AT 10,0; "PRESS ANY KE 
Y PLEASE" 

14 GOSUB 1000 

16 PRINT AT 2,3j"I WILL ROLL Y 
OUR DICE WHICH WILLBE DISPLAYED 
GRAPHICALLY." 

17 PRINT AT 6,0; "A TOTAL WILL 
ALSO BE DISPLAYED, WHICH IS IMPD 
RTANT. 

THE OBJECT OF 
THE GAME IS TO SETTHE TOTAL AS 
NEAR TO, OR EQUAL T021 AS POSSIBL 
E. " 

19 PRINT AT 16,0; "PRESS ANY KE 

20 GOSUB 1000 

40 PRINT AT 3,0; "PRESS ANY KEY 
TO ROLL YOUR DICE" 

41 GOSUB 1000 

42 PRINT AT 0,0j"DICE(l TO 4) 



43 PRINT AT 3,0; "^Hl f 

44 PRINT AT 4,0; "| I I 

45 PRINT AT 5,0j"^J L 
J" 

46 LET Dl-INT <RND*6)+ 

47 PRINT AT 4,1|D1 

48 LET D2-INT <RND*6)+ 



49 PRINT AT 4,5jD2 

50 LET D3=INT (RND#6>+1 

51 PRINT AT 4,9;D3 

52 LET D4=INT (RND*6)+1 

53 PRINT AT 4,I3jD4 

54 LET TWIST-0 

53 PRINT AT 10,0; "TOTALi "j (D1+ 
D2+D3+D4) +TWIST 

56 IF TWIST+(D1+D2+D3+D4»>21 T 
HEN GOTO 400 

37 IF TWIBT+(D1+D2+D3+D4)-21 T 
HEN GOTO 300 

SB LET D1-D1+TWIST 

60 PRINT AT 11,0| "**#»****»»»# 



12,0|"(S)TICK OR 



62 PRINT AT 
T)WIST 7" 

63 LET A*-INKEY* 

64 IF A*- H S" THEN PRINT AT 16, 
0| "YOUR TOTAL IS NOW ENTERED" 

65 IF A*»"B" THEN GOTO 6B 

66 IF A**="T" THEN EOTO B0 

67 IF A*<>"S" AND A*<>"T" THEN 
GOTO 60 

68 GOTO 90 

B0 PRINT AT 16,0; "ANOTHER 01 I 
S NOW THROWN" 

S2 LET TWIST=INT 

83 FOR A=l TO 30 

84 NEXT A 

85 PRINT AT B,0; " 
B6 PRINT AT 16,0; 

B8 GOTO 55 
90 B05UB 3000 
100 PRINT AT 0,0; "I 

105 FOR A=l TO 20 

106 NEXT A 

107 CLS 
110 PRINT "DICEC1 1 



(RND«6> 



I TWIST 



111 PRINT AT 3,0; "m ^ 
T' 

112 PRINT AT 4,0; "| | | 
I" 

114 PRINT AT 5,0;"|_I fc_ 
■J" 

117 LET D5=INT (RND*6)+1 

118 PRINT AT 4, 1 ; D5 

120 LET D6=INT (RND»6)+1 

122 PRINT AT 4,3;D6 

124 LET D7=INT (RND*6)+1 

126 PRINT AT 4,9;D7 

128 LET DB=INT (RND*6)+1 



ZX81 CAME 



13B PRINT AT 4,13|DB 

140 PRINT AT 10, B; "TOTAL* 
6+D7+DB 

142 PRINT AT 11,1 



LET C=<D3+D6+D7+DB> 

LET H=(D1+D2+D3+D4) 

IF C<=17 THEN GOTD 155 

IF C>17 AND C<21 THEN GOTO 

IF C>21 THEN GOTO 500 

IF C-21 THEN GOTO 200 

IF H<C THEN GDTD 200 

IF C<H THEN GOTO 300 

IF £>H THEN GOTO 700 

PRINT AT 14, 0|" I WILL TWIST 



145 
146 
147 
2000 
14B 
150 
132 
153 
154 
155 



136 LET TWIST-INT (RND*6)+1 

157 FDR A»l TO 23 

158 NEXT A 

159 PRINT AT B,0| H "|TWIBT 

160 PRINT AT 14,01" 

162 PRINT AT 10,0) "TOTALi "i CDS+ 
D6+D7+DB)+TWIST 

164 LET D5-D3+TWIST 

165 GOTO 144 

200 GQ8UB 3000 

201 GOSUB 3100 

207 PRINT AT 10, 13 t "MEHCr 
2BB FOR A=l TO 45 

209 NEXT A 

210 GOSUB 3000 

220 PRINT AT 0,0; "PRESS ANY KEY 

TO PLAY AGAIN" 

230 IF INKEY*="" THEN GDTD 230 

240 GOSUB 3000 

250 GOTO 38 

300 GOSUB 3000 

301 GOSUB 3100 

306 PRINT AT 10, 12) "nBnBEDGT 

307 FOR A=l TO 45 
30B PAUSE 50 

310 GOSUB 3000 

320 PRINT AT 0,0("PRESS ANY KEY 

TO PLAY AGAIN" 

330 IF INKEY*="" THEN GOTO 330 

345 GOSUB 3000 

350 SOTO 38 

400 GOSUB 3000 

401 PRINT AT 0,0: "YOU" j 

402 GOSUB 3200 
404 GOTO 201 

403 PRINT AT 5,0; "PRESS ANY KEY 
TO PLAY AGAIN" 

410 IF INKEY**"" THEN GOTO 410 
420 G05UB 3000 



430 GOTO 38 
450 GOSUB 3000 
455 GOTO 200 

500 GOSUB 3000 

501 PRINT AT B,0j"l"i 

502 GOSUB 3200 

510 PRINT AT 0,0) "I HAVE BUST" 

515 FOR A"=l TD 33 

516 NEXT A 
520 GOTO 300 
700 GOSUB 3000 

710 PRINT AT 0,0j"THAT GAME WAS 
A DRAW" 

711 PAUSE 100 
715 GOSUB 300B 
720 GOTO 4B5 

1B00 IF INKEY*="" THEN GOTO 10B0 

1015 GOSUB 300B 

1020 RETURN 

2000 FOR A=l TO 20 

201 B NEXT A 

2020 GOTO 14B 

3000 FOR A=l TO 21 

3010 SCROLL 

3011 NEXT A 
3020 RETURN 

3100 PRINT AT l,6t" ■ 



3110 PRINT AT 9,6|" 



3120 PAUSE 50 
3130 GOTO 3000 
3200 PRINT " HAVE 



3210 RETURN 

4000 SAVE "DICEY -DICED" 

4B10 RUN 




Each issue will be produced in 
cooperation with Eecaan our 
Interplanetory Adviser who on his 
home planet, Aargon, is a member of 
the Association of Supreme Players. 
He will he monitoring developments 
in the games Industry and advising 
Computer Gamer readers with all 
their gaming problems. Included in 
each Issue will he pages of review of 
the latest games releases, special 
Adventure features and a help-line, 
invaluable articles on how to 'crack* 
specific games a high-score page, 
exciting programs to type in for 
most of the popular home computers, 
news, competitions, reviews of 
peripherals and computers 
themselves If relevant to the games 
field and LOTS more. 



Also, all readers of Computer Gamer 
will have the opportunity to join 
our tremendous Header's Club 
each member will receive 
membership card and a regular 
newsletter which -will contain up-to- 
the-minute news and all sorts of 
offers on a variety of products. 




IPROCRAMMJNC TIPSp 



De-bugger 

Getting a program typed in is often only the 
start of your problems. Ed to the rescue. 





T vi -,ii-, L , in a program 15 a useful 

qu» 

be used, probably the most 


g M 










yourself or occasionally by our 
In debugging you gain a 


v .. 




gram actually works than by A 
merely lyping it in. bui tracking M 

itself and needs some skill. So " 


j$8»*' . 




your c-'loris ■.vIm-ii laced with 


^^B(&&/larfaF 




1 NEXT without FOR 

Lip - no related FOR 'letter' = 
Nol TO No2 Una, ur the letter 


^ pr 


LET 'letter' - No. 


^r _j 



-: A^in. : 



ion 3 Subscript wrong 

nay Connected w.tn DliV - 
rror DIM ASINo). Ifthenuml 



7 RETURN without GOSUB this and it 1 



othBf than via a GOSUB instruc- 
tion. Check a GOTO hasn't been 
entered in place of a GOSUB. 
Check tot a missing GOSUB. 



B Integer out ot range 



I FOR without NEXT 



,', it pmrjr AT Y,X;AS the howi 
culprit r.ould lis Y ur X or AS. To folloi 



labia tr 



PRINT Y EntetvNey 
PRINT X Enter iNbv 
PRINT AS Enter/Nt 



cledecfthe'limKs ESkfaMli^ PRINT AT °' 3 - 3 " n0 ' 

IF X >1 THEN LET X - 1 ^report"! ™ de ™ 

4 Out ot memory 



.h produces the error As well as tor programs which E Out or" DATA 

-eport. Now look back through are tun Lug. il may h;i|-.n--n i: i'io A Si^au-n fo:>--.-i-.i. Clwirk -In: 

;li.- |.r<j< ir-n 'i i ji ii ' ; ■!_!- : :-m ih.-- 1 1 r . . |n,:v :-=-.;. tj .- .-= - 1 1 : ,r 1 RAMiop. number ot DATA itini.-; ri.aiin- 

.■.diwi, , ;l j|) - ..jf.id.1lh, u.Fl Bfil,..'./ .^pairing, enter CLEAR the number or READ:;; u.iu.-iliy 

■„ fOn. ;.,:, r, in. :in. I. Did ■,-::■.: 3,:ve L.'SH ' a ' 1 on tin- Spectrum: on one (or morel has been m.-.;s-d 

it out? Does the program get the ZXB1 SAVE the program, out. Attempting tu -oread .1 

1 -.-it- or has a i.iO I O.'GOSUB turn the machine off and on. DATA lis; wnlmu: f.rji .,:.mu a 

basn «i..nqiy addressed? then reload the piogram. RESTORE command w 1 cause 



■ PROGRAMMING TIPS! 



Conversion tips 

A guide to ZX81 /Spectrum program conversions 
from David Nowotnik. 



The versions of BASIC offered 


, mm|i 






by the two ZX computers are 


Ther 
















































and fui 















leef- G'aoXts: ?X81 use 





ZX81 p 


e when converting ZX81 BASIC. Those fur colour will 


ged. Some of those 










ZX81 Spectrum Comments 










SCROLL RANDOMISE USR 3582 If the program u 


es random numbers, they 








LET t = USR 3582 option. If so, us 
PLOTY.X PRINTAT21-Y/2 : X/2; Print thespprap 


the second, using a variable (In this 








UNPLOTY.X PRINT AT 21 -¥/2,X/2; Print a space, or 
graphics charact 


*«•«,» 








"** "»"■«"—•—»■ 










Spectrum ZX81 


Comments 








BIN 

eg LET v = BIN LET y = (decimal no.) 
10010101 Cflnvsrafan to decimal: 
10010101=149 

128 64 32 16 8 42 1 


BIN allows the represen- 

binary. On the ZX81 use the 
decimal equivalent, but 
beware; BIN is often 
used with User Defined 
en Graphics, which are not 
available ontheZXSI. 










READ/DATA LET 
egREADx.y LETX = 50 
DATA 50.60 LETY = 60 


READ and DATA are 
used to store a lot of 
information in a program. Use 
LET instead. 










DEF FN and FN 

eg DEF a(x} = SQR s LET X$ = "SO.RX" 
LETt = FNa(i) LETX = I 

LET T= VAL X$ 


The defined function can 
appear in a string. Use 

functions (eg SQR). The 
equivalent of FN may need 2 










PLOT no equivalent 












SCREENS 

eg LET a = SCREENS x.y LET A = PEEK(PEEK 16396 

+ 2B6-PEEK 16397 + 1 +Y + 3 

Table 2 Spectrum to ZXB 1 convarsions. 


Used in interactive games 
display file. Note - this 
RAM pack is fitted. 
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^PROGRAMMING TIPSJ 



1 FRAMES 
POKE 16436,255 
POKE 16437.355 



POKE 23673,0'POKE 23673,0 



LET t = (PEEK 23672+256' 
LETT = [65535 -PEEK PEEK 23673I/50 

16436-256'PEEK 16437) 



POKE 23756,0 









256"INT 


IX/256I 




POKE 16389, If- 


TIX/256) 



BEEP 
BORDER 

BRIGHT 

CAT 

CIRCLE 

CLOSE 

DATA 




FORMAT 


ATTR 


INVERSE 


FN 


MERGE 








OPEN 


POINT 




SCREEN 


PAPER 


VALS 






RESTORE 




VERIFY 





System variables conversion Table. 



Variable ZX81/ 


TVS 1000 


BREG 


6414 




6443 


CHADD 


6406 


COORDS 




COORDS (iivte 2) 


6439 






DFCC 


6398 


DFILE 


6396 




6413 


ELINE 


6404 


ERRNR 






6294 




63S6 




6385 


FLAGX 




FRAMES 


6436 



23655 

No Equive 

23645 

23677 

23678 

23629 

23681 

No Equivii 

23659 

23641 

23610 

23625 



LASTK 


6421 




6424 


MEM 


6415 




8477 




6390 


NXTLIN 




OLDPCC 






6391 


PRBUFF 










1381 


SEED 


6434 


SPSN 


6441 


S POSN (Byte 2) 




STKBOT 




STKEND 


6412 




6419 




■ 




6432 




fc.iOO 


VERSN 


B393 


XPTR 





23617 
23637 
23662 
23621 
23296 
23680 
23730 
23670 
23688 

23651 
23653 
23660 
23666 
2386B 
23627 



ZX COMPUTING 



Lineage: 40p per word. F^ J3» 

Semi display: £9. 00 per single column centimetre. Ring 



f*> 01 - 437 0699 

Send your requirements to: 
DAVID HORNE 
ASP Ltd., 1 Golden Square, 
London W1 




COMPUTING OCTOBER/NOVEMBER 19S5 



TO ADVERTISE YOUR REPAIRS AND 

SPARES SERVICE PHONE DAVE 

01-437 0699 



SPECTRUM REPAIRS 

A Better Deal from Micro-World 




PROFESSIONAL 
REPAIRS 



ZX SPECTRUM REPAIRS 



FAST SPECTRUM 

and 

BBC REPAIRS 

AVERAGE £15 



MANCOMP LTD. 

(Dept ZX), 

Printworks Lane, 

Manchester, 

M19 3JP. 

Tel: 061-224 1888. 






SPECTRUM REPAIRS 

■'.'■ ■. '• ■■■ '■' ■ pafl ' u : 



COMPUTER REPAIRS 



rldent Enterprises 1 1,1 . 

ommon Road, Lanniey. 

Slough. 

TEL: 0753 08755 



COMPUTER REPAIRS 



flSimriPUTERREPRRS 



— VIDEO VAULT INTERNATIONAL - 

- 10* REPAIR SERV1CEE3 - 




X COMPUTING OCTOBER/NOVEMBER. 19B5 



i 
i 



i 



ZX COMPUTING 
CLASSIFIED ADVERTISEMENT - ORDER FORM 



If you have something to sell now's your chance! Don't turn the page - turn to us! 
I Rates of charge: 40p per word per issue plus 1 5% VAT (minimum of 1 5 words) Please state I 
■ classification and post to: ZX COMPUTING, CLASSIFIED DEPARTMENT, 





1 GOLDEN SQUARE, 


LONDON W1. 




























£5.25 












£7.00 
£8.75 












£10.50 
















































£17,50 


Please plac 


e my advert in ZXCOMPUTING for 


ssuescommsncing 


ssoon as possible. 






ZX Computing Subscriptions, 

Times House, 

179 The Mariowes. 

Hemel Hempstead. 

Herts HP! IBB, 



Subscription Order Form 



1 I I I I I 1 I I I I I 



£13.50 tor six issues [ ADDRESS 

SUBSCRIPTION £15.00 for six issues Q 

HATES Eat.OOforsixissuas [J postcode 

(tick D as $19.50 tor six issues r~\ Sls^ " m, " 

appropriate! USA surface rrnil. I — I Da.« 
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X COMPUTING OCTOBER; 



Battle your way to three enemy bases. 
Do you have the courage, stamina 
and skill to become a Game Lord? 



£7.99 

SPECTRUM 48K 



Kom ■■* r 

mmmvh 

^A The most powerful games in the Universe! 

Available from all good software shops. 



In case of difficulty write to; 

QUICKSILVA Ltd. Liberty House. 222 Regei 



Nick Faldo's 
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